home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / BK-SC1_1.DMS / in.adf / StormC Install-Script < prev    next >
Encoding:
Text File  |  1996-07-15  |  95.0 KB  |  3,258 lines
  1. ;*************************************************************************
  2. ;*  StormC Installer Version 1.3  9 Juli 1996                            *
  3. ;*                                                                       *
  4. ;*  Installer Revision by Jürgen Haage                                   *
  5. ;*  ©1996 HAAGE & PARTNER Computer GmbH                                  *
  6. ;*                                                                       *
  7. ;*  If you have any installer questions please let us know!              *
  8. ;*                                                                       *
  9. ;*************************************************************************
  10. ;
  11. ; $VER: StormC V1.1 Install Version 1.3 (9.7.96
  12. (set install_lokale_english  1)
  13. (set install_lokale_german   2)
  14. (set install_lokale_italien  4)
  15. ;(set install_lokale_frensh   8)
  16.  
  17. (set install_lokale_default install_lokale_english) ; Deutschsprachige Installieren
  18.  
  19. (if (= @language "deutsch") (
  20. (set install_lokale_default install_lokale_german) ; Deutschsprachige Installieren
  21. ))
  22.  
  23.     (set #lokale_select_english      "Englisch")
  24.     (set #lokale_select_german       "Deutsch")
  25.     (set #lokale_select_italien      "Italiano")
  26. ;    (set #lokale_select_frensh       "Französisch")
  27.  
  28.     (set #tooltype_select_pubscreen  "PUBSCREEN=STORMC")
  29.     (set #tooltype_select_quite      "QUIET=TRUE")
  30.     (set #tooltype_select_hothelp    "HOTHELP=TRUE")
  31.     (set #tooltype_select_golded     "GOLDED=TRUE")
  32.     (set #tooltype_select_savemem    "SAVEVMEM=TRUE")
  33.  
  34. (complete 0)
  35.  
  36. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  37. ; Versionen.
  38.  
  39. (set stcpp-version "Version 1.1")
  40. (set stcpp-date "(8 Juli 96)")
  41.  
  42. ; // Die Dateigrößen
  43.  
  44. (set size-stormcpp          23000)
  45. (set size-stormc           435000)
  46. (set size-stormed          215000)
  47. (set size-stormlink         65000)
  48. (set size-stormshell       331000)
  49. (set size-stormrun         217000)
  50. (set size-stormasm          36000)
  51. (set size-stormpics         49000)
  52. (set size-stormlex         102000)
  53. (set size-stormlibrarian    40000)
  54. (set size-catalogs         100000)
  55. (set size-help            2370000)
  56. (set size-mathlibs         240000)
  57. (set size-libs             560000)
  58. (set size-ansilib          390000)
  59. (set size-cincl            950000)
  60. (set size-assincl          647000)
  61. (set size-demos            105000)
  62. (set size-phxass           495000)
  63. (set size-muilib           130000)
  64.  
  65. (set size-komplett      ( + size-muilib size-stormlibrarian size-ansilib size-stormrun size-stormasm size-stormcpp size-stormlink size-stormc size-stormed size-stormshell size-stormpics size-stormlex size-libs size-inlcudes size-demossize-stormcpp size-stormc size-stormed size-stormlink size-stormshell size-stormrun size-stormasm size-stormpics size-stormlex size-catalogs size-help size-mathlibs size-libs size-cincl size-assincl size-demos size-phxass))
  66.  
  67. ;====================================================================
  68. ; Initialisierungen
  69. ; --- German strings ---
  70.  
  71. ; --- English strings ---
  72.  
  73.     (set #yeskey "Yes")
  74.     (set #nokey "No")
  75.  
  76.     (set #wrongos "\n Sorry, you will need OS2.04 or better\n")
  77.  
  78.     (set #welcome (cat "\n"
  79.         "Welcome to the installation of the new\n\n"
  80.         "C/C++ standard: StormC\n\n"
  81.         ""stcpp-version " of "stcpp-date"\n\n"
  82.         "This script copies all the files of StormC\n\n\n"
  83.         "© 1996 HAAGE&PARTNER Computer GmbH\n"
  84.         ))
  85.  
  86.     (set #oldversion (cat "\n"
  87.         "There is an old version of StormC on your\n"
  88.         "harddisk!\n"
  89.         ))
  90.  
  91.     (set #oldversion_help (cat "\n"
  92.         "Choose an option!\n"
  93.         ""
  94.         ))
  95.  
  96.     (set #modus-average (cat "\n"
  97.         "AVERAGE MODE:\n"
  98.         "You should have 10 MB of free disk space!\n\n"
  99.         "You will be asked for a drawer for the\n"
  100.         "installation of StormC.\n\n"
  101.         "Everything else will be optimised to the needs\n"
  102.         "of your Amiga system."
  103.         ))
  104.  
  105.     (set #new    "New installation")
  106.     (set #update "Update your existing version of StormC")
  107. ;    (set #remove "Delete StormC")
  108.  
  109.     (set #chose_path (cat
  110.         "Please select a device or a drawer for your\n"
  111.         "installation of StormC.\n\n"
  112.         "A drawer named \"StormC\" will be created\n"
  113.         "automatically!"
  114.         ))
  115.  
  116.     (set #chose_path_help (cat  "\n"
  117.         "Select 'Show drives' to get an overview of all\n"
  118.         "devices.\n"
  119.         "Please select one of the devices on top of\n"
  120.         "the list.\n"
  121.         "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0:\"\n"
  122.         "Do not use \"DF0:\", \"DF1:\", \"DF2:\",\n"
  123.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", \n"
  124.         "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"! \n\n"
  125.         "A drawer named \"StormC\" will be created\n"
  126.         "automatically!\n\n"
  127.         @askdir-help))
  128.  
  129.     (set #auswahlhilfe (cat "\n"
  130.         "There is an old version of StormC on your\n"
  131.         "harddisk!\n\n"
  132.         "Select \"Yes\" if you want to overwrite the\n"
  133.         "old one. Otherwise select \"No\"!\n"
  134.         ))
  135.  
  136.     (set #wrk_globalhelp (cat "\n"
  137.         "If you select \"No\" some of your files will\n"
  138.         "be changed. In some cases StormC will not work\n"
  139.         "correct !"
  140.         ))
  141.  
  142.     (set #ask_compiler (cat "\n"
  143.         "Do you want to install \"StormC\" now ?\n\n"
  144.         #wrk_globalhelp
  145.         ))
  146.  
  147.     (set #wrk_justamoment (cat "\n"
  148.         "This will last some time!\n"
  149.         "Please wait ...\n"
  150.         ))
  151.  
  152.     (set #wrk_compdecrunch (cat "\n"
  153.         "Unpacking...\n\n"
  154.         "StormC - ANSI C & C++ compiler\n\n"
  155.         #wrk_justamoment
  156.         ))
  157.  
  158.     (set #decrunch_error (cat "\n\n"
  159.         "Error during unpacking!\n\n"
  160.         "Maybe diskspace got low or you have protected\n"
  161.         "some files.\n"
  162.         ))
  163.  
  164.     (set #ask_editor (cat "\n"
  165.         "Do you want to install the editor \"StormED\"?\n\n"
  166.         #wrk_globalhelp
  167.         ))
  168.  
  169.     (set #wrk_eddecrunch (cat "\n"
  170.         "Unpacking...\n\n"
  171.         "StormED\n\n"
  172.         #wrk_justamoment
  173.         ))
  174.  
  175.     (set #ask_linker (cat "\n"
  176.         "Do you want to install the linker \"StormLink\"?\n"
  177.         #wrk_globalhelp
  178.         ))
  179.  
  180.     (set #wrk_linkdecrunch (cat "\n"
  181.         "Unpacking...\n\n"
  182.         "StormLink\n\n"
  183.         #wrk_justamoment
  184.         ))
  185.  
  186.     (set #ask_decrunchlib (cat "\n"
  187.         "Do you want to update the OS 3.1 ANSI-Libraries?\n\n"
  188.         #wrk_globalhelp
  189.         ))
  190.  
  191.     (set #wrk_libdecrunch (cat "\n"
  192.         "Unpacking OS 3.1 Libraries...\n\n"
  193.         #wrk_justamoment
  194.         ))
  195.  
  196.     (set #wrk_fastlibdecrunch (cat "\n"
  197.         "Unpacking special fast version of\n"
  198.         "ANSI library...\n\n"
  199.         "With this Library you are able to create very\n"
  200.         "short and fast executables!\n\n"
  201.         #wrk_justamoment
  202.         ))
  203.  
  204.     (set #wrk_muilibdecrunch (cat "\n"
  205.         "Unpacking the Mui-Classlibrary...\n\n"
  206.         "With this library you can create MUI programs in\n"
  207.         "the C++ programing language.\n\n"
  208.         #wrk_justamoment
  209.         ))
  210.  
  211.     (set #wrk_librariandecrunch (cat "\n"
  212.         "Unpacking the Link-Librarymaker \"StormLibrarian\"\n\n"
  213.         "The librarian makes it possible to create link\n"
  214.         "very easy!\n\n"
  215.         #wrk_justamoment
  216.         ))
  217.  
  218.     (set #wrk_guidedecrunch (cat "\n"
  219.         "Unpacking AmigaGuide icons...\n\n"
  220.         #wrk_justamoment
  221.         ))
  222.  
  223. ;    (set #ask_catalog (cat "\n"
  224. ;        "Do you want to update the German catalogue?\n\n"
  225. ;        #wrk_globalhelp
  226. ;        ))
  227.  
  228.     (set #wrk_localedecrunchger (cat "\n"
  229.         "Unpacking the German catalogue...\n\n"
  230.         #wrk_justamoment
  231.         ))
  232.  
  233.     (set #wrk_localedecrunchital (cat "\n"
  234.         "Unpacking the italien Catalog...\n\n"
  235.         #wrk_justamoment
  236.         ))
  237.  
  238.     (set #wrk_appmanlibdecrunch (cat "\n"
  239.         "Unpacking...\n\n"
  240.         "Application-Manager\n\n"
  241.         #wrk_justamoment
  242.         ))
  243.  
  244.     (set #ask_mathlibdecrunch (cat "\n"
  245.         "Do you want to install the math libraries?\n\n"
  246.         #wrk_globalhelp
  247.         ))
  248.  
  249.     (set #wrk_mathlibdecrunch (cat "\n"
  250.         "Unpacking...\n\n"
  251.         "Math libraries\n"
  252.         #wrk_justamoment
  253.         ))
  254.  
  255.     (set #ask_onlinedocudecrunch (cat "\n"
  256.         "Do you want to install the Online-Documentation?\n\n"
  257.         ))
  258.  
  259.     (set #wrk_onlinedocudecrunch (cat "\n"
  260.         "Unpacking...\n\n"
  261.         "Online-Documentation\n\n"
  262.         #wrk_justamoment
  263.         ))
  264.  
  265.     (set #ask_sourcedecrunch (cat "\n"
  266.         "Do you want to install the new Startup-Code\n"
  267.         "sources and the source of the lokale catalogs?\n"
  268.         ))
  269.  
  270.     (set #wrk_sourcedecrunch (cat "\n"
  271.         "Unpacking...\n\n"
  272.         "Startup-Code sources\n\n"
  273.         #wrk_justamoment
  274.         ))
  275.  
  276.     (set #ask_startupdecrunch (cat "\n"
  277.         "Do you want to install the new Startup-Codes\n"
  278.         "objectfiles?\n\n"
  279.         #wrk_globalhelp
  280.         ))
  281.  
  282.     (set #wrk_startupdecrunch (cat "\n"
  283.         "Unpacking...\n\n"
  284.         "Startup-Code objectfiles\n\n"
  285.         #wrk_justamoment
  286.         ))
  287.  
  288.  
  289.     (set #ask_graficdecrunch (cat "\n"
  290.         "Do you want to install the new graphics?\n"
  291.         ))
  292.  
  293.     (set #wrk_gfxdecrunch (cat "\n"
  294.         "Unpacking...\n\n"
  295.         "Graphics\n"
  296.         #wrk_justamoment
  297.         ))
  298.  
  299.     (set #ask_lexdecrunch (cat "\n"
  300.         "Do you want to install the new dictionaries\n"
  301.         "for the editor?\n"
  302.         ))
  303.  
  304.     (set #wrk_lexdecrunch (cat "\n"
  305.         "Unpacking...\n\n"
  306.         "Editor dictionaries\n"
  307.         #wrk_justamoment
  308.         ))
  309.  
  310.     (set #ask_asmdecrunch (cat "\n"
  311.         "Do you want to install the new assembler\n"
  312.         "interface?\n"
  313.         ))
  314.  
  315.     (set #wrk_asmdecrunch (cat "\n"
  316.         "Unpacking...\n\n"
  317.         "Assembler interface\n"
  318.         #wrk_justamoment
  319.         ))
  320.  
  321.     (set #ask_phxassdecrunch (cat "\n"
  322.         "Do you want to install the new Assembler PhxAss?\n"
  323.         ))
  324.  
  325.     (set #wrk_phxassdecrunch (cat "\n"
  326.         "Unpacking...\n\n"
  327.         "PhxAssembler\n\n"
  328.         #wrk_justamoment
  329.         ))
  330.  
  331.     (set #ask_cppdecrunch (cat  "\n"
  332.         "Do you want to install the new loader\n"
  333.         "\"StormCPP\"?\n\n"
  334.         #wrk_globalhelp
  335.         ))
  336.  
  337.     (set #wrk_cppdecrunch (cat "\n"
  338.         "Unpacking loader...\n\n"
  339.         #wrk_justamoment
  340.         ))
  341.  
  342.     (set #ask_rundecrunch (cat "\n"
  343.         "Do you want to install the debugger\n"
  344.         "\"StormRUN\"\n"
  345.         #wrk_globalhelp
  346.         ))
  347.  
  348.     (set #wrk_rundecrunch (cat "\n"
  349.         "Unpacking...\n"
  350.         "RunShell\n"
  351.         #wrk_justamoment
  352.         ))
  353.  
  354.     (set #ask_shelldecrunch (cat "\n"
  355.         "Do you want to install the project management\n"
  356.         "\"StormShell\"?\n"
  357.         #wrk_globalhelp
  358.         ))
  359.  
  360.     (set #wrk_shelldecrunch (cat "\n"
  361.         "Unpacking...\n"
  362.         "StormShell\n"
  363.         #wrk_justamoment
  364.         ))
  365.  
  366.     (set #ask_settdecrunch (cat "\n"
  367.         "Do you want to install the new presets?\n"
  368.         #wrk_globalhelp
  369.         ))
  370.  
  371.     (set #wrk_settdecrunch (cat "\n"
  372.         "Unpacking...\n"
  373.         "Presets\n"
  374.         ))
  375.  
  376.     (set #env_error (cat "\n\n\n\n"
  377.         "Error at installation of ENV arguments!\n"
  378.         ))
  379.  
  380.     (set #ask_screenman (cat "\n"
  381.         "Do you want to install the ScreenManager into\n"
  382.         "your WB-Startup folder?\n"
  383.         ))
  384.  
  385.     (set #wrk_screenmancopy (cat "\n"
  386.         "Copy the ScreenManager into your\n"
  387.         "WB-Startup!\n"
  388.         ))
  389.  
  390.     (set #ask_fixport (cat "\n"
  391.         "Do you want to install the MagicMenuPatch into\n"
  392.         "your WB-Startup?\n"
  393.         ))
  394.  
  395.     (set #wrk_fixport (cat "\n"
  396.         "Copy the  MagicMenuPatch into your\n"
  397.         "WB-Startup!\n"
  398.         ))
  399.  
  400.     (set #ask_incldecrunch (cat "\n"
  401.         "Do you want to update the OS 3.1 includes?\n\n"
  402.         #wrk_globalhelp
  403.         ))
  404.  
  405.     (set #wrk_incldecrunch (cat "\n"
  406.         "Unpacking the OS 3.1 includes...\n\n"
  407.         #wrk_justamoment
  408.         ))
  409.  
  410.     (set #ask_asmincldecrunch (cat "\n"
  411.         "Do you want to install the 3.1 Assembler-\n"
  412.         "Header files?\n\n"
  413.         #wrk_globalhelp
  414.         ))
  415.  
  416.     (set #wrk_asmincldecrunch (cat "\n"
  417.         "Unpacking the OS 3.1 Assembler Includes...\n\n"
  418.         #wrk_justamoment
  419.         ))
  420.  
  421.     (set #ask_demodecrunch (cat "\n"
  422.         "Do you want to update the examples?\n"
  423.         ))
  424.  
  425.     (set #wrk_demodecrunch (cat "\n"
  426.         "Unpacking the examples...\n\n"
  427.         #wrk_justamoment
  428.         ))
  429.  
  430.     (set #prp-insert-disk1 (cat "\n"
  431.         "\n\nPlease insert disk 1 \"StormC_Disk1\" into "
  432.         "any drive now !"
  433.         ))
  434.     (set #prp-insert-disk2 (cat "\n"
  435.         "\n\nPlease insert disk 2 \"StormC_Disk2\" into "
  436.         "any drive now !"
  437.         ))
  438.     (set #prp-insert-disk3 (cat "\n"
  439.         "\n\nPlease insert disk 3 \"StormC_Disk3\" into "
  440.         "any drive now !"
  441.         ))
  442.     (set #prp-insert-disk4 (cat "\n"
  443.         "\n\nPlease insert disk 4 \"StormC_Disk4\" into "
  444.         "any drive now !"
  445.         ))
  446.  
  447.     (set #prp-copy-menu-lib (cat "\n"
  448.         "Copying menu manager library"
  449.         ))
  450.  
  451.     (set #hlp-copy-menu-lib (cat    "\n"
  452.         "The menu manager library is used for the\n"
  453.         "menus of StormC.\n\n "
  454.         ))
  455.  
  456.     (set #wrk-create-pref-file (cat "\n"
  457.         "Creating preset files..."
  458.         ))
  459.  
  460.     (set #colorset-prompt "\nDo you want to work with editors syntax colouring?")
  461.     (set #lowcolor #nokey)
  462.     (set #hicolor #yeskey)
  463.     (set #colorset-help (cat "\n"
  464.        "You schould work with a minimum of 16 Colors\n"
  465.        "on your Screen if you use syntax colouring!\\nn"
  466.        ))
  467.  
  468.     (set #lokale_select (cat "\n"
  469.        "Please choose the locale catalogs you want to install!\n\n"
  470.        ))
  471.  
  472.     (set #lokale_select_help (cat "\n"
  473.        "Please choose one or more locale catalogs.\n\n"
  474.        ))
  475.  
  476.     (set #tooltype_select (cat "\n"
  477.        "Which Tooltypes do you want to install?\n\n"
  478.        ))
  479.  
  480.     (set #tooltype_select_help (cat "\n\n"
  481.        " PUBSCREEN=STORMC                                \n\n"
  482.        "If you use the StormC environment on an owe screen\n"
  483.        "you should have or install a plublic screen manager.\n\n"
  484.        " QUIET=TRUE                                      \n\n"
  485.        "There will be no feedback while starting the\n"
  486.        "StormC Environment.\n\n"
  487.        " HOTHELP=TRUE                                    \n\n"
  488.        "You can use the hypertext system Hothelp instead\n"
  489.        "of Amiga Guide.\n\n"
  490.        " GOLDED=TRUE                                     \n\n"
  491.        "Instead of StormED you can work with the GoldED\n"
  492.        "Version 3.1. For debugging the StormED will be loaded.\n"
  493.        "You should configure these if your Amiga have\n"
  494.        "enough memory.\n\n"
  495.        " SAVEMEM=TRUE                                     \n\n"
  496.        "Only the really used programs will be startet. \n"
  497.        "StormC, StormLink, and StormRun will be started\n"
  498.        "if you want to use them.\n"
  499.        ))
  500.  
  501.     (set #stormc_install_wizardlib (cat "\n"
  502.        "Do you want to install the new version\n"
  503.        "of the StormWizard-Library?\n"
  504.        ))
  505.  
  506.     (set #stormc_install_wizardlib_help (cat "\n"
  507.        "The Wizard-Library generates the nice\n"
  508.        "GUI interface.\n"
  509.        ))
  510.  
  511.     (set #nosyntaxcolouring_hint (cat "\n"
  512.        "You don`t want to use the editors syntax colouring!\n\n"
  513.        "If you want to switch it on later you have to\n"
  514.        "change the default icons in the ENVARC:\n"
  515.        "drawer and conigurate the colors in the editor\n"
  516.        "settings.\n"
  517.        ))
  518.  
  519.     (set #yessyntaxcolouring_hint (cat "\n"
  520.        "You want to work with the editor syntax colouring!\n\n"
  521.        "After programstart please open an empty editor\n"
  522.        "window and make the coloursettings for your system.\n"
  523.        ))
  524.  
  525.     (set #pubscreenuse_hint (cat "\n"
  526.        "You want to use a public screen!\n\n"
  527.        "Please use the stormScreenManager or an other\n"
  528.        "Tool to open a public screen bevor you start\n"
  529.        "the StormC environment!\n"
  530.        ))
  531.  
  532.     (set #goldeduse_hint (cat "\n"
  533.        "You use GoldEd instead of StormED!\n\n"
  534.        "You have to configurate GoldEd memory resident.\n\n"
  535.        "(Menu \"Config/Misc\"\n"
  536.        "Dialogentry:\"Misc/resident\")\n"
  537.        ))
  538.  
  539.     (set #wrk_changingtooltypes (cat "\n"
  540.        "The Tooltype settings will copied to the example\n"
  541.        "files and to the default ikons.\n"
  542.        ))
  543.  
  544. (if (= @language "deutsch") (
  545.  
  546.  
  547.     (set #yeskey "Ja")
  548.     (set #nokey "Nein")
  549.  
  550.     (set #wrongos "\n Sorry, dieses Paket benoetigt mind. OS2.04.\n")
  551.  
  552.     (set #welcome (cat "\n"
  553.         "Willkommen bei der Installation des neuen\n"
  554.         "Compilerstandards StormC\n\n"
  555.         ""stcpp-version " vom "stcpp-date"\n\n"
  556.         "Für eine Komplett-Installation benötigen Sie\n"
  557.         ""size-komplett " KBytes freien HD-Speicher!\n\n"
  558.         "Dieses Skript kopiert die verschiedenen\n"
  559.         "Dateien, aus denen sich das Compilersystem\n"
  560.         "zusammensetzt, auf Ihre Festplatte.\n\n"
  561.         "©1996 HAAGE&PARTNER Computer GmbH\n"
  562.         ))
  563.  
  564.     (set #oldversion (cat "\n"
  565.         "Auf Ihrer Festplatte befindet sich bereits\n"
  566.         "eine Installation von StormC!\n"
  567.         ))
  568.  
  569.     (set #oldversion_help (cat "\n"
  570.         " Wählen Sie einfach die bereits vorhandene\n"
  571.         "Schublade an, wenn Sie ihr altes System\n"
  572.         "aktualisieren möchten!\n\n"
  573.         "Ihr alten Voreinstellungen wie das Default-\n"
  574.         "Projekt oder die Systemeinstellungen werden\n"
  575.         "dadurch ÜBERSCHRIEBEN!"
  576.         ))
  577.  
  578.     (set #modus-average (cat "\n"
  579.         "Im Einsteiger-Modus wird davon ausgegangen,\n"
  580.         "daß StormC auf einer Festplatte installiert\n"
  581.         "wird, auf der noch mindestens ca. 10 MByte\n"
  582.         "freier Speicherplatz verfügbar sind. Sie\n"
  583.         "werden dazu im nächsten Fenster nach dem\n"
  584.         "Namen der gewünschten Schublade gefragt.\n\n"
  585.         "Alles weitere wird dann vom Installations-\n"
  586.         "Skript möglichst genau an Ihr System angepaßt."
  587.         ))
  588.  
  589.     (set #new    "Neu installieren")
  590.     (set #update "Update über bisherige Version installieren")
  591. ;    (set #remove "Deinstallation - StormC entfernen")
  592.  
  593.     (set #chose_path (cat
  594.         "Auswahl des Pfades für die Compiler-\n"
  595.         "Installation.Bitte wählen Sie ein Laufwerk\n"
  596.         "oder eine Schublade! Eine Schublade \"StormC\"\n"
  597.         "wird automatisch erzeugt."
  598.         ))
  599.  
  600.     (set #chose_path_help (cat  "\n"
  601.         "Sie können über das Symbol 'Laufwerke anz.'\n"
  602.         "(bzw. 'Show drives') eine Übersicht über alle\n"
  603.         "Laufwerke Ihres Amiga anfordern; aus dieser\n"
  604.         "Übersicht sollten Sie nur die oberen, nicht\n"
  605.         "farblich gekennzeichneten Einträge auswählen.\n"
  606.         "Typische sinnvolle Namen sind z.B. \"WORK:\",\n"
  607.         "\"HD0:\" oder \"DH0:\" nicht verwenden sollten\n"
  608.         "Sie Namen wie \"DF0:\", \"DF1:\", \"DF2:\",\n"
  609.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
  610.         "\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"!\n\n\n"
  611.         "Storm C kann nur in eine Schublade nicht aber\n"
  612.         "auf eine Partition direkt installiert werden!\n"
  613.         "Wenn Sie also nur ein Laufwerk für die\n"
  614.         "Installation auswählen, wird Ihnen eine\n"
  615.         "Fehlermeldung angezeigt!\n\n"
  616.         @askdir-help))
  617.  
  618.     (set #auswahlhilfe (cat "\n"
  619.         "Auf Ihrer Festplatte befindet sich bereits\n"
  620.         "eine Version der Datei die installiert werden\n"
  621.         "soll.\n\n"
  622.         "Wählen Sie \"Ja\", wenn Sie die alte Datei mit\n"
  623.         "der neuen überschreiben möchten.\n"
  624.         "Anderenfalls wählen Sie bitte \"Nein\"!\n"
  625.         ))
  626.  
  627.     (set #wrk_globalhelp (cat "\n"
  628.         "Wenn Sie \"Nein\" wählen ist es möglich, daß\n"
  629.         "Ihr System nach der Installation nicht mehr\n"
  630.         "korrekt funktioniert!"
  631.         ))
  632.  
  633.     (set #ask_compiler (cat "\n"
  634.         "Möchten Sie den Compiler \"StormC\" installieren?\n"
  635.         "\n"
  636.         #wrk_globalhelp
  637.         ))
  638.  
  639.     (set #wrk_justamoment (cat "\n"
  640.         "Das dauert eine geraume Zeit.\n"
  641.         "Bitte haben Sie etwas Geduld!\n"
  642.         ))
  643.  
  644.     (set #wrk_compdecrunch (cat "\n"
  645.         "Entpacke das Compilersystem...\n\n"
  646.         "StormC - ANSI C/C++ Compiler V1.1\n\n"
  647.         #wrk_justamoment
  648.         ))
  649.  
  650.     (set #decrunch_error (cat "\n\n"
  651.         "Fehler beim Entpacken!\n\n"
  652.         "Stellen Sie bitte sicher, daß Ihre Festplatte\n"
  653.         "ausreichend Speicherkapazität hat, und, falls\n"
  654.         "die Dateien bereits vorhanden sind diese nicht\n"
  655.         "Lösch- oder Schreibgeschützt sind.\n"
  656.         ))
  657.  
  658.     (set #ask_editor (cat "\n"
  659.         "Möchten Sie den Editor \"StormED\" installieren?\n\n"
  660.         #wrk_globalhelp
  661.         ))
  662.  
  663.     (set #wrk_eddecrunch (cat "\n"
  664.         "Entpacke das Compilersystem...\n\n"
  665.         "Storm-Editor\n\n"
  666.         #wrk_justamoment
  667.         ))
  668.  
  669.     (set #ask_linker (cat "\n"
  670.         "Möchten Sie den neuen Linker \"StormLink\"\n"
  671.         "installieren?\n\n"
  672.         #wrk_globalhelp
  673.         ))
  674.  
  675.     (set #wrk_linkdecrunch (cat "\n"
  676.         "Entpacke das Compilersystem...\n\n"
  677.         "Storm-Linker\n\n"
  678.         #wrk_justamoment
  679.         ))
  680.  
  681. ;    (set #ask_decrunchlib (cat "\n"
  682. ;        "Möchten Sie die Bibliotheken installieren?\n\n"
  683. ;        #wrk_globalhelp
  684. ;        ))
  685.  
  686.     (set #wrk_libdecrunch (cat "\n"
  687.         "Entpacke die OS 3.1 Bibliotheken...\n\n\n"
  688.         #wrk_justamoment
  689.         ))
  690.  
  691.     (set #wrk_fastlibdecrunch (cat "\n"
  692.         "Entpacke die Spezialversion der\n"
  693.         "ANSI-Bibliotheken...\n\n"
  694.         "Mit der Bibliothek können besonders kurze und\n"
  695.         "und schnelle Programme erzeugt werden.\n\n"
  696.         #wrk_justamoment
  697.         ))
  698.  
  699.     (set #wrk_muilibdecrunch (cat "\n"
  700.         "Entpacke die Mui-Klassenbibliothek...\n\n"
  701.         "Mit der Bibliothek können Sie MUI-Programme\n\n"
  702.         "in C++ programmieren.\n\n"
  703.         #wrk_justamoment
  704.         ))
  705.  
  706.     (set #wrk_librariandecrunch (cat "\n"
  707.         "Entpacke das neue Programmteil StormLibrarian\n\n"
  708.         "Der Librarian ermöglicht Ihnen die Erzeugung\n"
  709.         "von Linker-Bibliotheken auf besonders einfache\n"
  710.         "Art uns Weise.\n\n"
  711.         #wrk_justamoment
  712.         ))
  713.  
  714.     (set #wrk_guidedecrunch (cat "\n"
  715.         "Entpacke die Amiga-Guide-Datei-Ikons...\n\n"
  716.         #wrk_justamoment
  717.         ))
  718.  
  719.     (set #wrk_localedecrunchger (cat "\n"
  720.         "Entpacke den deutschsprachigen Katalog...\n\n"
  721.         #wrk_justamoment
  722.         ))
  723.  
  724.     (set #wrk_localedecrunchital (cat "\n"
  725.         "Entpacke den italienischsprachigen Katalog...\n\n"
  726.         #wrk_justamoment
  727.         ))
  728.  
  729. ;    (set #wrk_localedecrunchfranz (cat "\n"
  730. ;        "Entpacke den französischsprachigen Katalog...\n\n"
  731. ;        #wrk_justamoment
  732. ;        ))
  733.  
  734. ;    (set #ask_appmanlibdecrunch (cat "\n"
  735. ;        "Möchten Sie die neue Menübibliothek Schnitt-\n"
  736. ;        "stelle installieren?\n\n"
  737. ;        #wrk_globalhelp
  738. ;        ))
  739.  
  740.     (set #wrk_appmanlibdecrunch (cat "\n"
  741.         "Entpacke das Compilersystem...\n\n"
  742.         "Application-Manager\n\n"
  743.         #wrk_justamoment
  744.         ))
  745.  
  746.     (set #ask_mathlibdecrunch (cat "\n"
  747.         "Möchten Sie die neuen Mathe-Bibliotheken\n"
  748.         "installieren?\n\n"
  749.         #wrk_globalhelp
  750.         ))
  751.  
  752.     (set #wrk_mathlibdecrunch (cat "\n"
  753.         "Entpacke das Compilersystem...\n\n"
  754.         "Mathe-Bibliotheken\n"
  755.         #wrk_justamoment
  756.         ))
  757.  
  758.     (set #ask_onlinedocudecrunch (cat "\n"
  759.         "Möchten Sie die neue Online-Dokumentation\n"
  760.         "installieren?\n"
  761.         ))
  762.  
  763.     (set #wrk_onlinedocudecrunch (cat "\n"
  764.         "Entpacke das Compilersystem...\n\n"
  765.         "Online-Dokumentation\n\n"
  766.         #wrk_justamoment
  767.         ))
  768.  
  769.     (set #ask_sourcedecrunch (cat "\n"
  770.         "Möchten Sie die neuen Quelltexte der Startup-\n"
  771.         "Codes und der Lokalisierung installieren?\n"
  772.         ))
  773.  
  774.     (set #wrk_sourcedecrunch (cat "\n"
  775.         "Entpacke das Compilersystem...\n\n"
  776.         "Startup-Code Sourcen\n\n"
  777.         #wrk_justamoment
  778.         ))
  779.  
  780.     (set #ask_startupdecrunch (cat "\n"
  781.         "Möchten Sie die neuen Startup-Codes\n"
  782.         "installieren?\n\n"
  783.         #wrk_globalhelp
  784.         ))
  785.  
  786.     (set #wrk_startupdecrunch (cat "\n"
  787.         "Entpacke das Compilersystem...\n\n"
  788.         "Startup-Code\n\n"
  789.         #wrk_justamoment
  790.         ))
  791.  
  792.     (set #ask_graficdecrunch (cat "\n"
  793.         "Möchten Sie die neuen Grafiken installieren?\n "
  794.         ))
  795.  
  796.     (set #wrk_gfxdecrunch (cat "\n"
  797.         "Entpacke das Compilersystem...\n\n"
  798.         "Grafiken\n\n"
  799.         #wrk_justamoment
  800.         ))
  801.  
  802.     (set #ask_lexdecrunch (cat "\n"
  803.         "Möchten Sie die neuen Lexika installieren?\n"
  804.         ))
  805.  
  806.     (set #wrk_lexdecrunch (cat "\n"
  807.         "Entpacke das Compilersystem...\n\n"
  808.         "Editor-Lexiken\n\n"
  809.         #wrk_justamoment
  810.         ))
  811.  
  812.     (set #ask_asmdecrunch (cat "\n"
  813.         "Möchten Sie die neue Assembler Schnittstelle\n"
  814.         "installieren?\n"
  815.         ))
  816.  
  817.     (set #wrk_asmdecrunch (cat "\n"
  818.         "Entpacke das Compilersystem...\n\n"
  819.         "Assembler-Schnittstelle\n\n"
  820.         #wrk_justamoment
  821.         ))
  822.  
  823.     (set #ask_phxassdecrunch (cat "\n"
  824.         "Möchten Sie den neue PhxAss intstallieren?\n"
  825.         ))
  826.  
  827.     (set #wrk_phxassdecrunch (cat "\n"
  828.         "Entpacke das Compilersystem...\n\n"
  829.         "PhxAssembler\n\n"
  830.         #wrk_justamoment
  831.         ))
  832.  
  833. ;    (set #ask_cppdecrunch (cat  "\n"
  834. ;        "Möchten Sie den neuen Lader \"StormCPP\"\n"
  835. ;        "installieren?\n\n"
  836. ;        #wrk_globalhelp
  837. ;        ))
  838.  
  839.     (set #wrk_cppdecrunch (cat "\n"
  840.         "Entpacke das Compilersystem...\n\n"
  841.         #wrk_justamoment
  842.         ))
  843.  
  844. ;    (set #ask_rundecrunch (cat "\n"
  845. ;        "Möchten Sie den Debugger \"StormRUN\"\n"
  846. ;        "installieren?\n\n"
  847. ;       #wrk_globalhelp
  848. ;        ))
  849.  
  850.     (set #wrk_rundecrunch (cat "\n"
  851.         "Entpacke das Compilersystem...\n"
  852.         "RunShell\n\n"
  853.         #wrk_justamoment
  854.         ))
  855.  
  856. ;    (set #ask_shelldecrunch (cat "\n"
  857. ;        "Möchten Sie die Projektverwaltung \"StormShell\"\n"
  858. ;        "installieren?\n\n"
  859. ;        #wrk_globalhelp
  860. ;        ))
  861.  
  862.     (set #wrk_shelldecrunch (cat "\n"
  863.         "Entpacke das Compilersystem...\n\n"
  864.         "StormShell\n\n"
  865.         #wrk_justamoment
  866.         ))
  867.  
  868.     (set #ask_settdecrunch (cat "\n"
  869.         "Möchten Sie die neuen Voreinstellungen\n"
  870.         "installieren?\n\n"
  871.         #wrk_globalhelp
  872.         ))
  873.  
  874.     (set #wrk_settdecrunch (cat "\n"
  875.         "Entpacke das Compilersystem...\n\n"
  876.         "Einstellungen\n"
  877.         ))
  878.  
  879.     (set #env_error (cat "\n\n\n\n"
  880.         "Fehler beim Installieren der ENV-Argumente.\n"
  881.         ))
  882.  
  883.     (set #ask_screenman (cat "\n"
  884.         "Möchten Sie den ScreenManager in Ihrer\n"
  885.         "WB-Startup installieren\n"
  886.         ))
  887.  
  888.     (set #wrk_screenmancopy (cat "\n"
  889.         "Kopiere den ScreenManager in Ihrer\n"
  890.         "WB-Startup!\n"
  891.         ))
  892.  
  893.     (set #ask_fixport (cat "\n"
  894.         "Möchten Sie den MagicMenuPatch in Ihrer\n"
  895.         "WB-Startup installieren\n"
  896.         ))
  897.  
  898.     (set #wrk_fixport (cat "\n"
  899.         "Kopiere MagicMenuPatch in Ihrer\n"
  900.         "WB-Startup!\n"
  901.         ))
  902.  
  903.  
  904.     (set #ask_incldecrunch (cat "\n"
  905.         "Möchten Sie die 3.1-Includes installieren?\n\n"
  906.         #wrk_globalhelp
  907.         ))
  908.  
  909.     (set #wrk_incldecrunch (cat "\n"
  910.         "Entpacke die OS 3.1 Includes...\n\n"
  911.         #wrk_justamoment
  912.         ))
  913.  
  914.     (set #ask_asmincldecrunch (cat "\n"
  915.         "Möchten Sie die 3.1 Assembler-Includes\n"
  916.         "installieren?\n\n"
  917.         #wrk_globalhelp
  918.         ))
  919.  
  920.     (set #wrk_asmincldecrunch (cat "\n"
  921.         "Entpacke die OS 3.1 Assembler Includes...\n\n"
  922.         #wrk_justamoment
  923.         ))
  924.  
  925.     (set #ask_demodecrunch (cat "\n"
  926.         "Möchten Sie die Beispiele überinstallieren?\n"
  927.         ))
  928.  
  929.     (set #wrk_demodecrunch (cat "\n"
  930.         "Entpacke die Beispiel-Dateien...\n\n"
  931.         #wrk_justamoment
  932.         ))
  933.  
  934.     (set #prp-insert-disk1 (cat "\n"
  935.         "\n\nBitte legen Sie nun die Diskette 1 \"StormC_Disk1\" "
  936.         "in ein beliebiges Laufwerk ein!"
  937.         ))
  938.         
  939.     (set #prp-insert-disk2 (cat "\n"
  940.         "\n\nBitte legen Sie nun die Diskette 2 \"StormC_Disk2\" "
  941.         "in ein beliebiges Laufwerk ein!"
  942.         ))
  943.  
  944.     (set #prp-insert-disk3 (cat "\n"
  945.         "\n\nBitte legen Sie nun die Diskette 3 \"StormC_Disk3\" "
  946.         "in ein beliebiges Laufwerk ein!"
  947.         ))
  948.  
  949.     (set #prp-insert-disk4 (cat "\n"
  950.         "\n\nBitte legen Sie nun die Diskette 4 \"StormC_Disk4\" "
  951.         "in ein beliebiges Laufwerk ein!"
  952.         ))
  953.  
  954.     (set #prp-copy-menu-lib (cat "\n"
  955.         "Kopiere die Application-Manager-Library\n"
  956.         ))
  957.  
  958.     (set #hlp-copy-menu-lib (cat "\n"
  959.         "Die Application-Manager-Library beinhaltet\n"
  960.         "die Menüleisten des Systems.\n\n\n"
  961.         ))
  962.  
  963.     (set #wrk-create-pref-file (cat "\n"
  964.         "Die Voreinstellungs-Datei wird erzeugt..."
  965.         ))
  966.  
  967.     (set #colorset-prompt "\nSoll die farbliche Syntax-Hervorhebung eingeschaltet werden?")
  968.     (set #lowcolor #nokey)
  969.     (set #hicolor #yeskey)
  970.     (set #colorset-help (cat "\n"
  971.        "Die farbliche Syntax-Markierung setzt voraus,\n"
  972.        "daß Sie mit min. 16 Farben arbeiten.\n\n"
  973.        "Bei weniger als 16 Farben, kann es passieren\n"
  974.        "daß Textteile bedingt durch die verwendete\n"
  975.        "Farbe nicht dargestellt werden.\n"
  976.        ))
  977.  
  978.     (set #lokale_select (cat "\n"
  979.        "Bitte wählen Sie, welche der folgenden Landes-\n"
  980.        "sprachen-Kataloge installiert werden sollen: \n"
  981.        ))
  982.  
  983.     (set #lokale_select_help (cat "\n"
  984.        "Wählen Sie bitte einen oder mehrere der angegebenen\n"
  985.        "Lokale-Kataloge aus. Daraufhin wird jeweils eine\n"
  986.        "Schublade für die entsprechende Landessprache ange-\n"
  987.        "legt und die Catalog kopiert\n"
  988.        ))
  989.  
  990.     (set #tooltype_select (cat "\n"
  991.        "Bitte wählen Sie, welche der angegeben Tool-\n"
  992.        "types aktiviert werden sollen:\n"
  993.        ))
  994.  
  995.     (set #tooltype_select_help (cat "\n\n"
  996.        " PUBSCREEN=STORMC                                \n\n"
  997.        "Wenn StormC auf einem eigenen Screen gestartet   \n"
  998.        "werden soll. Beachten Sie bitte, daß Sie auch    \n"
  999.        "den Pub-Screen-Manager installieren müssen.      \n\n"
  1000.        " QUIET=TRUE                                      \n\n"
  1001.        "Während des Systemstarts wird kein Fenster ge-   \n"
  1002.        "öffnet und es erfolgt keine Anzeige des Start-   \n"
  1003.        "Bildes.                                          \n\n"
  1004.        " HOTHELP=TRUE                                    \n\n"
  1005.        "Statt der mitgelieferten Online-Hilfe im Amige-  \n"
  1006.        "Guide-Format soll alternativ HotHelp verwendet   \n"
  1007.        "werden.                                          \n\n"
  1008.        " GOLDED=TRUE                                     \n\n"
  1009.        "Alternativ zum StormED kann auch der GoldED ab   \n"
  1010.        "Version 3.1.4 genutzt werden. Für den Debugger   \n"
  1011.        "wird nach wie vor der StormED geladen.           \n"
  1012.        "Diese Koniguration sollten Sie nur verwenden,    \n"
  1013.        "wenn Sie über ausreichend RAM-Speicher verfügen. \n\n"
  1014.        " SAVEMEM=TRUE                                     \n\n"
  1015.        "Es werden nur die zum Starten benötigten Programme\n"
  1016.        "gestartet. Um Speicher zu sparen lädt die Storm- \n"
  1017.        "Shell die Programmteile StormC, StormLink, und   \n"
  1018.        "StormRun erst bei bedarf nach.                   \n"
  1019.        "Wenn Sie über ausreichend Speicher verfügen      \n"
  1020.        "sollten Sie diese Option nicht nutzen.           \n"
  1021.        ))
  1022.  
  1023.     (set #stormc_install_wizardlib (cat "\n"
  1024.        "Installiert die aktuelle Version der\n"
  1025.        "StormWizard-Library\n"
  1026.        ))
  1027.  
  1028.     (set #stormc_install_wizardlib_help (cat "\n"
  1029.        "Die Wizard-Library wird für die Oberflächen-\n"
  1030.        "darstellung benötigt.\n"
  1031.        ))
  1032.  
  1033.     (set #nosyntaxcolouring_hint (cat "\n"
  1034.        "Sie haben sich entschieden, ohne farbliche\n"
  1035.        "Syntax-Hervorhebung zu arbeiten!\n\n"
  1036.        "Um diese später eventuell einzuschalten,\n"
  1037.        "müssen Sie die Default-Piktogramme in ENVARC:\n"
  1038.        "neu installieren und die Farbzuordung im Text-\n"
  1039.        "editor auf Ihr System abstimmen!\n"
  1040.        ))
  1041.  
  1042.     (set #yessyntaxcolouring_hint (cat "\n"
  1043.        "Sie haben sich entschieden, mit farblicher\n"
  1044.        "Syntax-Hervorhebung zu arbeiten!\n\n"
  1045.        "Öffnen Sie bitte nach den Programmstart ein\n"
  1046.        "leeres Texteditorfenster und nehmen eine\n"
  1047.        "Abstimmung der Farbzuordung für Ihr System vor.\n"
  1048.        ))
  1049.  
  1050.     (set #pubscreenuse_hint (cat "\n"
  1051.        "Sie nutzen das Public-Screen Tooltype!\n\n"
  1052.        "Stellen Sie bitte sicher, daß Sie mit dem\n"
  1053.        "StormScreenManager oder einem anderen Tool\n"
  1054.        "einen Public-Screen mit dem Namen STROMC\n"
  1055.        "definiert haben, damit das Entwicklungssystem\n"
  1056.        "auf einem eigenen Screen gestartet werden kann.\n"
  1057.        ))
  1058.  
  1059.     (set #goldeduse_hint (cat "\n"
  1060.        "Sie nutzen GoldEd anstelle von StormED!\n\n"
  1061.        "Um GoldEd in der StormC-Umgebung nutzen zu\n"
  1062.        "können muß er resident gestartet werden.\n\n"
  1063.        "(Menü \"Konfig/Diverses\"\n"
  1064.        "Dialogeintrag:\"Diverses/resident\")\n"
  1065.        ))
  1066.  
  1067.     (set #wrk_changingtooltypes (cat "\n"
  1068.        "Die Tooltype-Einstellungen werden auf die\n"
  1069.        "Demo-Programme und auf die Vorgaben-Piktogamme\n"
  1070.        "übertragen!\n"
  1071.        ))
  1072. ))
  1073.  
  1074. ; ----------------------------- Prozeduren ------------------------------
  1075.  
  1076. (Procedure Make_Folder
  1077.     (
  1078.     (set folder (tackon folder "StormC"))
  1079.         (if (= (exists folder) 0)
  1080.             (
  1081.             (makedir folder (infos))
  1082.             )
  1083.             (
  1084.             (set update 1)        ; // Doch schon vorhanden!
  1085. ;            (set folder (getassign "STORMC"))
  1086.             )
  1087.         )
  1088.     )
  1089. )
  1090.  
  1091. (set @default-dest "")
  1092.  
  1093. (set os-version (/ (getversion) 65536))
  1094. (set os-13 (< os-version 36))
  1095. (set os-20 (>= os-version 36))
  1096. (set os-21 (>= os-version 38))
  1097.  
  1098. (set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
  1099.  
  1100. ; ---Die Pfadnamen der Programme, die vom Installations-Skript aufgerufen werden. ---
  1101.  
  1102. (set run-lha            "run RAM:Lhex x -a ")
  1103.  
  1104. ; ------------ Die Pfadnamen der einzelnen Quell-Dateien ----------------
  1105.  
  1106. (set source-more                    "StormC_Disk1:C/More")
  1107. (set source-lhx                     "StormC_Disk1:C/LHex")
  1108. (set source-cppikons                "StormC_Disk1:C/Ikons/")
  1109. (set source-Liesmich                "StormC_Disk1:Liesmich")
  1110. (set source-readme                  "StormC_Disk1:Readme")
  1111. (set source-changes                 "StormC_Disk1:Änderungen V1.1.guide")
  1112. (set source-colsettings             "StormC_Disk1:Settings/StormSettings.col")
  1113. (set source-swsettings              "StormC_Disk1:Settings/StormSettings.sw")
  1114. (set source-runsettings             "StormC_Disk1:Settings/StormSettings.Run")
  1115. (set source-template                "StormC_Disk1:Settings/template.¶")
  1116. (set source-screenman               "StormC_Disk1:Tools/StormScreenManager")
  1117. (set source-fixport                 "StormC_Disk1:Tools/MagicMenuPatch/MagicMenuPatch")
  1118. (set source-fixport-info            "StormC_Disk1:Tools/MagicMenuPatch/MagicMenuPatch.info")
  1119.  
  1120. (set archive-env                    "StormC_Disk1:Settings/Envarc.Lha")
  1121. (set archive-grafiken               "StormC_Disk1:Bilder.LHA")
  1122. (set archive-lexika                 "StormC_Disk1:Dictionary.LHA")
  1123. (set archive-demos                  "StormC_Disk1:Examples.lha")
  1124. (set archive-lokale-deutsch         "StormC_Disk1:German.LHA")
  1125. (set archive-lokale-italien         "StormC_Disk1:Italiano.LHA")
  1126. ;(set archive-lokale-frensh          "StormC_Disk1:Français.LHA")
  1127. (set archive-stormmath              "StormC_Disk1:MathLibs.LHA")
  1128. (set archive-source                 "StormC_Disk1:Source.LHA")
  1129. (set archive-startupcode            "StormC_Disk1:Startup-Code.LHA")
  1130. (set archive-run                    "StormC_Disk1:StormRUN.LHA")
  1131.  
  1132. (set archive-asminclude             "StormC_Disk2:ASM-Incl.LHA")
  1133. (set archive-phxass                 "StormC_Disk2:Phxass.LHA")
  1134. (set archive-asm                    "StormC_Disk2:StormASM.LHA")
  1135. (set archive-compiler               "StormC_Disk2:StormC.LHA")
  1136. (set archive-cpp                    "StormC_Disk2:StormCPP.LHA")
  1137. (set archive-stormlib               "StormC_Disk2:StormLibrary.LHA")
  1138. (set archive-linker                 "StormC_Disk2:StormLink.LHA")
  1139. (set archive-wizardlib              "StormC_Disk2:wizardlib.LHA")
  1140.  
  1141. (set archive-include                "StormC_Disk3:C-Incl.lha")
  1142. (set archive-libs                   "StormC_Disk3:Lib.LHA")
  1143. (set archive-fastlib                "StormC_Disk3:Fastlib.LHA")
  1144. (set archive-librarian              "StormC_Disk3:StormLibrarian.LHA")
  1145. (set archive-shell                  "StormC_Disk3:StormShell.LHA")
  1146.  
  1147. (set archive-onlinedocu             "StormC_Disk4:OnlineHelp.LHA")
  1148. (set archive-muilib                 "StormC_Disk4:MUIClass.LHA")
  1149. (set archive-editor                 "StormC_Disk4:StormED.LHA")
  1150.  
  1151. ;=====================================================================================
  1152. ; // Beginn der Installation
  1153. ;=====================================================================================
  1154.  
  1155. ; // wird min. unter 2.04 installiert ?
  1156.  
  1157. (if (= os-13 1)
  1158.  
  1159.     (
  1160.         (message #wrongos)
  1161.  
  1162.         (exit (quiet))
  1163.     )
  1164. )
  1165.  
  1166. (onerror (
  1167.     (if (> @ioerr 0) 
  1168.         (message (cat "\n ERROR CODE: " @ioerr "\n\n"))
  1169.     )
  1170. ))
  1171.  
  1172. ; // Eine kleine Einleitung, gefolgt vom Startbild des Installers.
  1173.  
  1174. (set act-user-level (user 1))
  1175.  
  1176. (message #welcome)
  1177.  
  1178. (user act-user-level)
  1179. (welcome)
  1180.  
  1181. (complete 5)
  1182.  
  1183. ; // Alte Version prüfen und entsprechende Abfrage ausgeben!--------------------------------------------
  1184.  
  1185. (set update 0)
  1186.  
  1187. (if (exists "StormC:" (noreq)) 
  1188.     (
  1189.         (set update 
  1190.             (askchoice
  1191.                 (prompt #oldversion)
  1192.                 (help   #oldversion_help)
  1193.                 (default 1)
  1194.                 (choices
  1195.                     #new
  1196.                     #update
  1197. ;                    #remove
  1198.                 )
  1199.             )
  1200.         )
  1201.     )
  1202. )
  1203.  
  1204. (set folder "WORK:StormC")
  1205.  
  1206. (if (<> update 0)                        ; // altes Assign benutzen wenn update oder remove
  1207.     (
  1208.         (set folder (getassign "STORMC"))
  1209.     )
  1210. )
  1211.  
  1212. ; ---------------- Die Ausgabe für die mit ausreichend Speicher ---------
  1213.  
  1214. (if (= @user-level 0)
  1215.     (
  1216.     (set act-user-level (user 1))
  1217.     (message #modus-average)
  1218.     )
  1219. )
  1220.  
  1221. (if (= update 0)
  1222.     (
  1223.     (set ok 0)
  1224.         (while (not ok)
  1225.             (set folder
  1226.                 (askdir
  1227.                 (prompt #chose_path)
  1228.                 (help #chose_path_help)    ; // Auswahl Hilfetext
  1229.                 (default folder)
  1230.                 (disk)
  1231.                 )
  1232.             )
  1233.  
  1234.             (Make_Folder)    ; // Automatisch neues Verzeichnis anlegen!
  1235.  
  1236.     (set #dir_error (cat  "\n"
  1237.         "Your selection \"" folder "\" is not a\n"
  1238.         "valid device or drawer!\n\n"
  1239.         "Select 'Show drives' to get an overview of all\n"
  1240.         "devices available on your Amiga.\n"
  1241.         "Please select one of the devices on top of\n"
  1242.         "the list.\n"
  1243.         "Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0\"\n"
  1244.         "Do not use \"DF0:\", \"DF1:\", \"DF2:\",\n"
  1245.         "\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
  1246.         "\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"!\n\n"
  1247.         ))
  1248.  
  1249.     (set #memory_error (cat  "\n"
  1250.         "There is not enough free disk space at the\n"
  1251.         "device you have selected for the installation.\n\n"
  1252.         "Free diskspace    " freediskspace "!\n"
  1253.         "Diskspace needed  " size-komplett "!\n\n"
  1254.         "Please select a another device or harddisk!"
  1255.         ))
  1256.  
  1257.  
  1258. (if (= @language "deutsch") (
  1259.  
  1260.  
  1261.     (set #dir_error (cat  "\n"
  1262.         "Bei Ihrer Auswahl \"" folder "\" handelt es   \n"
  1263.         "sich nicht um eine gültige Schublade!         \n"
  1264.         "                                              \n"
  1265.         "Sie können über das Symbol 'Laufwerke anz.'   \n"
  1266.         "(bzw. 'Show drives') eine Übersicht über alle \n"
  1267.         "Laufwerke Ihres Amiga anfordern; aus dieser   \n"
  1268.         "Übersicht sollten Sie nur die oberen, nicht   \n"
  1269.         "farblich gekennzeichneten Einträge auswählen. \n"
  1270.         "Über den Schalter \"Neue Schublade anlegen..\"\n"
  1271.         "können Sie ein neue Schublade erzeugen. Diese \n"
  1272.         "neue Schublade wird auf der Partition        \n"
  1273.         "angelegt, die Sie soeben betrachten."
  1274.         ))
  1275.  
  1276.     (set #memory_error (cat  "\n"
  1277.         "Auf der ausgewählten Festplattenpartition     \n"
  1278.         "steht nicht genügend freier Speicher für die  \n"
  1279.         "komplette Installation des Compilersystems zur\n"
  1280.         "Verfügung.                                    \n"
  1281.         "                                              \n"
  1282.         "Freier Speicher " freediskspace "!            \n"
  1283.         "Benötigter Speicher " size-komplett "!        \n"
  1284.         "                                              \n"
  1285.         "Bitte wählen Sie eine andere Partition, auf   \n"
  1286.         "der entsprechende Kapazitäten vorhanden sind!"
  1287.         ))
  1288. ))
  1289.  
  1290.             ; // Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
  1291.             ; // diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
  1292.             ; // kann die Auswahl-Schleife beendet werden.
  1293.             (if (or (or (or (<= (strlen folder) 0) (= (substr folder (- (strlen folder) 1) 1) ":")) (= (exists folder (noreq)) 0)) (= (getdiskspace folder) -1))
  1294.                 (message #dir_error)  ; Fehler bei der Auswahl der Schublade
  1295.                 ;else
  1296.                 (
  1297.                     (set freediskspace (getdiskspace folder))  ; // Der freie Speicher auf diesem Medium
  1298.                     (if (< freediskspace size-komplett)
  1299.                         (
  1300.                         (user 1)
  1301.                             (message #memory_error)  ; // nicht genügend freier Speicher
  1302.                         )
  1303.                      ;else
  1304.                         (set ok 1)
  1305.                     )
  1306.                 )
  1307.             )
  1308.         )
  1309.     )
  1310. )
  1311.  
  1312.  
  1313. (makeassign "STORMC")
  1314.  
  1315. (user act-user-level)
  1316.  
  1317. (if (= update 1)  ; // vor dem Update muß einiges umgebaut werden!
  1318.     (
  1319.  
  1320.     (set destbin (tackon folder "Bin"))
  1321.     (set newdestbin (tackon folder "StormSYS"))  ; // Name geändert seit Version 1.04
  1322.  
  1323.     (if (exists destbin)                         ; // Compiler-Verzeichnis umbenennen
  1324.         (
  1325.         (rename destbin newdestbin)
  1326.  
  1327.         (set oldfile (tackon newdestbin "startup.o"))
  1328.         (set oldfolder (tackon folder "OBSOLETE"))
  1329.         (if (= (exists oldfolder) 0)             ; // Verzeichnis für alte Dateien anlegen
  1330.             (makedir oldfolder)
  1331.         )
  1332.         (if (exists oldfile)
  1333.             (
  1334.                 (copyfiles
  1335.                     (
  1336.                     (source oldfile)                     ; // alte Startup.o retten
  1337.                     (dest oldfolder)
  1338.                     )
  1339.                 )
  1340.             )
  1341.         )
  1342.         (set destbin (tackon folder "Bin.info"))
  1343.         (set newdestbin (tackon folder "StormSYS.info"))
  1344.         (if (exists destbin)
  1345.             (rename destbin newdestbin)
  1346.         )
  1347.         (set destlib    (tackon folder "Lib"))
  1348.         (set oldfile (tackon destlib "storm.lib"))
  1349.         (if (exists oldfile)
  1350.             (
  1351.                 (copyfiles
  1352.                     (
  1353.                     (source oldfile)                     ; // alte Storm.lib retten
  1354.                     (dest oldfolder)
  1355.                     )
  1356.                 )
  1357.             )
  1358.         )
  1359.         )
  1360.     )
  1361.     (set destdemo (tackon folder "Beispiele"))   ; // Name geändert seit Version 1.04
  1362.     (set newdestdemo (tackon folder "Examples")) ; // Name geändert seit Version 1.04
  1363.     (if (exists destdemo)                        ; // Verzeichnis für Beispiele umbenennen
  1364.         (
  1365.         (rename destdemo newdestdemo)
  1366.         (set destdemo (tackon folder "Beispiele.info"))   ; // Name geändert seit Version 1.08
  1367.         (set newdestdemo (tackon folder "Examples.info")) ; // Name geändert seit Version 1.08
  1368.         (rename destdemo newdestdemo)
  1369.         )
  1370.     )
  1371.     (set destsys (tackon folder "StormSYS"))
  1372.     (if (exists destsys)
  1373.         (
  1374.         (set oldfile (tackon destsys "ABOUT3.0.IFF"))
  1375.         (if (exists oldfile)
  1376.             (
  1377.             (delete oldfile)                         ; // wird nicht mehr gebraucht
  1378.             ))
  1379.         (set oldfile (tackon destsys "storm.library"))
  1380.         (if (exists oldfile)
  1381.             (
  1382.             (delete oldfile)                         ; // wird nicht mehr gebraucht
  1383.             ))
  1384.  
  1385.         (set oldfile (tackon destsys "STORMSETTINGS.RUN"))
  1386.         (if (exists oldfile)
  1387.             (
  1388.             (delete oldfile)                         ; // wird nicht mehr gebraucht
  1389.             ))
  1390.  
  1391.         (set olddict (tackon destsys "Lexikon"))
  1392.         (set newdict (tackon destsys "Dictionary"))
  1393.         (if (exists olddict)
  1394.             (
  1395.             (rename olddict newdict)            ; // Name geändert seit Version 1.04
  1396.  
  1397.             (set oldfile (tackon newdict "Amiga Funktionen.lexikon"))
  1398.             (if (exists oldfile)
  1399.                 (
  1400.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  1401.                 ))
  1402.             (set oldfile (tackon newdict "Amiga Typen.lexikon"))
  1403.             (if (exists oldfile)
  1404.                 (
  1405.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  1406.                 ))
  1407.             (set oldfile (tackon newdict "Benutzer1.lexikon"))
  1408.             (set newfile (tackon newdict "User 1.dic"))
  1409.             (if (exists oldfile)
  1410.                 (
  1411.                 (rename oldfile newfile)                 ; // wird umbenannt
  1412.                 ))
  1413.             (set oldfile (tackon newdict "Benutzer2.lexikon"))
  1414.             (set newfile (tackon newdict "User 2.dic"))
  1415.             (if (exists oldfile)
  1416.                 (
  1417.                 (rename oldfile newfile)                 ; // wird umbenannt
  1418.                 ))
  1419.             (set oldfile (tackon newdict "Benutzer3.lexikon"))
  1420.             (set newfile (tackon newdict "User 3.dic"))
  1421.             (if (exists oldfile)
  1422.                 (
  1423.                 (rename oldfile newfile)                 ; // wird umbenannt
  1424.                 ))
  1425.             (set oldfile (tackon newdict "C Bibliothek.lexikon"))
  1426.             (if (exists oldfile)
  1427.                 (
  1428.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  1429.                 ))
  1430.             (set oldfile (tackon newdict "C Wörter.lexikon"))
  1431.             (if (exists oldfile)
  1432.                 (
  1433.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  1434.                 ))
  1435.             (set oldfile (tackon newdict "Preprozessor.lexikon"))
  1436.             (if (exists oldfile)
  1437.                 (
  1438.                 (delete oldfile)                         ; // wird nicht mehr gebraucht
  1439.                 ))
  1440.             ))
  1441.         ))
  1442.     )
  1443. )
  1444.  
  1445. ; // Verzeichnisse vorbereiten
  1446.  
  1447.     (set destbin        (tackon folder "StormSYS"))   ; // Neu seit Version 1.08
  1448.     (if                                         ; // Compiler-Verzeichnis erzeugen
  1449.         (= (exists destbin) 0)
  1450.         (makedir destbin (infos))
  1451.     )
  1452.  
  1453.     (set destdemo       (tackon folder "Examples"))   ; // Name geändert seit Version 1.08
  1454.     (if                                         ; // Demo-Verzeichnis erzeugen
  1455.         (= (exists destdemo) 0)
  1456.         (makedir destdemo (infos))
  1457.     )
  1458.  
  1459.     (set destasminclude (tackon folder "ASM-Include"))
  1460.     (if                                         ; // ASM-Include-Verzeichnis erzeugen
  1461.         (= (exists destasminclude) 0)
  1462.         (makedir destasminclude)
  1463.     )
  1464.  
  1465.     (set destinclude (tackon folder "Include"))
  1466.     (if                                         ; // Include-Verzeichnis erzeugen
  1467.         (= (exists destinclude) 0)
  1468.         (makedir destinclude)
  1469.     )
  1470.  
  1471.     (set destlib        (tackon folder "Lib"))
  1472.     (if                                         ; // Libraries-Verzeichnis erzeugen
  1473.         (= (exists destlib) 0)
  1474.         (makedir destlib)
  1475.     )
  1476.  
  1477.     (set destfastlib    (tackon folder "FAST-ANSI-Lib"))
  1478.     (if                                         ; // Spezial-Libraries-Verzeichnis erzeugen
  1479.         (= (exists destfastlib) 0)
  1480.         (makedir destfastlib (infos))
  1481.     )
  1482.  
  1483.     (set destmuilib    (tackon folder "MUI-Class-Lib"))
  1484.     (if                                         ; // Spezial-Libraries-Verzeichnis erzeugen
  1485.         (= (exists destmuilib) 0)
  1486.         (makedir destmuilib (infos))
  1487.     )
  1488.  
  1489.     (set destphxass     (tackon folder "PhxAss"))
  1490.     (if                                         ; // Dokumenten-Verzeichnis erzeugen
  1491.         (= (exists destphxass) 0)
  1492.         (makedir destphxass (infos))
  1493.     )
  1494.  
  1495.     (set destsource     (tackon folder "Source"))
  1496.     (if                                         ; // Quelltexte-Verzeichnis erzeugen
  1497.         (= (exists destsource) 0)
  1498.         (makedir destsource (infos))
  1499.     )
  1500.  
  1501.     (set destmath (tackon destbin "lib"))
  1502.     (if                                         ; // Verzeichnis für Mathebibliotheken erzeugen
  1503.         (= (exists destmath) 0)
  1504.         (makedir destmath)
  1505.     )
  1506.  
  1507.     (set desthelp (tackon destbin "Help"))
  1508.     (if                                         ; // Verzeichnis für Online-Hilfe erzeugen
  1509.         (= (exists desthelp) 0)
  1510.         (makedir desthelp (infos))
  1511.     )
  1512.  
  1513.     (set destdict (tackon destbin "Dictionary"))
  1514.     (if                                         ; // Verzeichnis für Lexika erzeugen
  1515.         (= (exists destdict) 0)
  1516.         (makedir destdict)
  1517.     )
  1518.  
  1519.     (set destlokale (tackon destbin "CATALOGS"))
  1520.     (if                                         ; // Verzeichnis für Cataloge erzeugen
  1521.         (= (exists destlokale) 0)
  1522.         (makedir destlokale)
  1523.     )
  1524.  
  1525. ; // Lokalisierungsauswahl
  1526.  
  1527. (set install_lokale
  1528.  
  1529.     (askoptions
  1530.  
  1531.         (prompt #lokale_select)
  1532.         (help   #lokale_select_help)
  1533.  
  1534.         (default install_lokale_default)
  1535.  
  1536.         (choices
  1537.             #lokale_select_english
  1538.             #lokale_select_german
  1539.             #lokale_select_italien
  1540. ;            #lokale_select_frensh
  1541.         )
  1542.     )
  1543. )
  1544.  
  1545.  
  1546. (if (= 2 (BITAND install_lokale install_lokale_german))
  1547.     (
  1548.     
  1549.     (set lokale (tackon destlokale "Deutsch"))
  1550.     (if                                         ; // Verzeichnis für Deutschen Cataloge erzeugen
  1551.         (= (exists lokale) 0)
  1552.         (makedir lokale)
  1553.     ))
  1554. )
  1555.  
  1556. (if (= 4 (BITAND install_lokale install_lokale_italien))
  1557.     (
  1558.     
  1559.     (set lokale (tackon destlokale "Italiano"))
  1560.     (if                                         ; // Verzeichnis für Italienischen Cataloge erzeugen
  1561.         (= (exists lokale) 0)
  1562.         (makedir lokale)
  1563.     ))
  1564. )
  1565.  
  1566. ;(if (= 8 (BITAND install_lokale install_lokale_frensh))
  1567. ;    (
  1568.     
  1569. ;    (set lokale (tackon destlokale "Français"))
  1570. ;    (if                                         ; // Verzeichnis für Deutschen Cataloge erzeugen
  1571. ;        (= (exists lokale) 0)
  1572. ;        (makedir lokale)
  1573. ;    ))
  1574. ;)
  1575.  
  1576. ; // Diskette 1 einlegen!
  1577.  
  1578. (askdisk
  1579.     (prompt #prp-insert-disk1)
  1580.     (help #askdir-help)
  1581.     (dest "StormC_Disk1")
  1582. )
  1583.  
  1584. (complete 7)
  1585.  
  1586. ; // Lhx wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
  1587. ; // geladen werden muß.
  1588.  
  1589. (copyfiles
  1590.     (source source-lhx)
  1591.     (dest "RAM:")
  1592. )
  1593.  
  1594.  
  1595. ; // Liesmich Datei auf Festplatte kopieren!
  1596.  
  1597. (if (= 2 (BITAND install_lokale install_lokale_german))
  1598.     (
  1599.     (set #cpysource source-Liesmich)
  1600.     )
  1601.     (
  1602.     (set #cpysource source-readme)
  1603.     )
  1604. )
  1605.  
  1606. (copyfiles
  1607.     (dest folder)
  1608.     (source #cpysource)
  1609.     (infos)
  1610. )
  1611.  
  1612. (copyfiles
  1613.     (dest folder)
  1614.     (source source-changes)
  1615. )
  1616.  
  1617. (makeassign "STORMC")
  1618. (makeassign "STORMC" folder)
  1619.  
  1620. (if (= 2 (BITAND install_lokale install_lokale_german))
  1621.     (
  1622.     (run "run StormC_Disk1:C/More StormC:Liesmich")
  1623.     )
  1624.     (
  1625.     (run "run StormC_Disk1:C/More StormC:Readme")
  1626.     )
  1627. )
  1628.  
  1629. (complete 10)
  1630.  
  1631. ; // Die 2. Icon Geschichte!
  1632.  
  1633. (set install_tooltypes
  1634.  
  1635.     (askoptions
  1636.  
  1637.         (prompt #tooltype_select)
  1638.         (help   #tooltype_select_help)
  1639.  
  1640.         (default 0)
  1641.  
  1642.         (choices
  1643.             #tooltype_select_pubscreen
  1644.             #tooltype_select_quite
  1645.             #tooltype_select_hothelp
  1646.             #tooltype_select_golded
  1647.             #tooltype_select_savemem
  1648.         )
  1649.     )
  1650. )
  1651.  
  1652. (set #pubscvar   "DEFAULT")
  1653. (set #quietvar   "FALSE")
  1654. (set #hothelpvar "FALSE")
  1655. (set #goldedvar  "FALSE")
  1656. (set #savememvar "FALSE")
  1657.  
  1658. (if (= 1 (bitand install_tooltypes 1))
  1659.     (
  1660.     (set #pubscvar "STROMC")
  1661.     ))
  1662.  
  1663. (if (= 2 (bitand install_tooltypes 2))
  1664.     (
  1665.     (set #quietvar "TRUE")
  1666.     ))
  1667.  
  1668. (if (= 4 (bitand install_tooltypes 4))
  1669.     (
  1670.     (set #hothelpvar "TRUE")
  1671.     ))
  1672.  
  1673. (if (= 8 (bitand install_tooltypes 8))
  1674.     (
  1675.     (set #goldedvar "TRUE")
  1676.     ))
  1677.  
  1678. (if (= 16 (bitand install_tooltypes 16))
  1679.     (
  1680.     (set #savememvar "TRUE")
  1681.     ))
  1682.  
  1683. (copyfiles                                  ; Ikon kopieren!
  1684.     (source source-cppikons)
  1685.     (dest folder)
  1686.      (all)
  1687. )
  1688.  
  1689. (if (= 2 (BITAND install_lokale install_lokale_german))
  1690.     (
  1691.     (set #cppicon (tackon folder "Readme.info"))
  1692.     )
  1693.     (
  1694.     (set #cppicon (tackon folder "Liesmich.info"))
  1695.     )
  1696. )
  1697.  
  1698. (delete #cppicon)
  1699.  
  1700.  
  1701. (set cppicon (tackon folder "StormCPP"))
  1702.  
  1703. (tooltype
  1704.     (setdefaulttool "StormC:StormSYS/StormCPP")
  1705.     (setstack 15000)
  1706.     (settooltype "PUBSCREEN" #pubscvar)
  1707.     (dest cppicon)
  1708.     (settooltype "QUIET" #quietvar)
  1709.     (settooltype "HOTHELP" #hothelpvar)
  1710.     (settooltype "GOLDED" #goldedvar)
  1711.     (settooltype "SAVEMEM" #savememvar)
  1712. )
  1713.  
  1714.  
  1715. (set cppicon (tackon folder "StormLibrarian"))
  1716.  
  1717. (tooltype
  1718.     (setdefaulttool "StormC:StormSYS/StormLibrarian")
  1719.     (setstack 8000)
  1720.     (settooltype "PUBSCREEN" #pubscvar)
  1721.     (dest cppicon)
  1722. )
  1723.  
  1724.  
  1725. ;------------------------------ Screen Manager ----------------------------------
  1726.  
  1727. (set screenman
  1728.     (askbool
  1729.        (prompt #ask_screenman)
  1730.        (help #auswahlhilfe)
  1731.        (default 1)
  1732.        (choices #yeskey #nokey)
  1733.     )
  1734. )
  1735.  
  1736. (if (= screenman 1)
  1737.     (
  1738.     (working #wrk_screenmancopy)
  1739.       (copyfiles
  1740.         (source source-screenman)
  1741.         (all)
  1742.         (dest "SYS:WBStartup")
  1743.       )
  1744.     
  1745.     )
  1746. )
  1747.  
  1748. ;============= FixGIRPort ===============================================
  1749.  
  1750. (set fixport
  1751.     (askbool
  1752.        (prompt #ask_fixport)
  1753.        (help #auswahlhilfe)
  1754.        (default 1)
  1755.        (choices #yeskey #nokey)
  1756.     )
  1757. )
  1758.  
  1759. (if (= fixport 1)
  1760.     (
  1761.     (working #wrk_fixport)
  1762.       (copyfiles
  1763.         (source source-fixport)
  1764.         (dest "SYS:WBStartup")
  1765.       )
  1766.       (copyfiles
  1767.         (source source-fixport-info)
  1768.         (dest "SYS:WBStartup")
  1769.       )
  1770.     
  1771.     )
  1772. )
  1773.  
  1774. ;============= Voreinstellungen ===============================================
  1775.  
  1776. (set colorset
  1777.  
  1778.   (askchoice  (prompt #colorset-prompt)
  1779. ;              (help @install-help)
  1780.               (choices #lowcolor #hicolor)
  1781.               (default 1)
  1782.               (help #colorset-help)
  1783.   )
  1784. )
  1785.  
  1786. (if (= colorset 1)
  1787.   (
  1788.     (set #ed-settings "StormC_Disk1:Settings/StormSettings.col")
  1789.   )
  1790.   (
  1791.     (set #ed-settings "StormC_Disk1:Settings/StormSettings.sw")
  1792.   )
  1793. )
  1794.  
  1795. ;debug(#ed-settings
  1796.  
  1797. (complete 12)
  1798.  
  1799. (set bool 1)
  1800.  
  1801. (set destbinexists (tackon destbin "STORMSETTINGS.ED"))
  1802.  
  1803. (if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; Settings vorhanden?
  1804.     (
  1805.         (set bool
  1806.             (askbool
  1807.                 (prompt #ask_settdecrunch)
  1808.                 (help #auswahlhilfe)
  1809.                 (default 1)
  1810.                 (choices #yeskey #nokey)
  1811.             )
  1812.         )
  1813.     )
  1814. )
  1815.  
  1816.  
  1817. (if (= bool 1)
  1818.     (
  1819.       (working #wrk_settdecrunch)
  1820.       (copyfiles
  1821.         (source #ed-settings)
  1822.         (newname "StormSettings.ED")
  1823.         (dest destbin)
  1824.       )
  1825.  
  1826. ;      (copyfiles
  1827. ;        (source source-runsettings)
  1828. ;        (dest destbin)
  1829. ;      )
  1830.  
  1831.       (copyfiles
  1832.         (source source-template)
  1833.         (dest destbin)
  1834.       )
  1835.  
  1836.     )
  1837. )
  1838.  
  1839. (complete 16)
  1840.  
  1841. (set destenvarc (tackon "envarc:" "STORMCPP"))
  1842. (if                                         ; // Verzeichnis für Envargumente erzeugen
  1843.   (= (exists destenvarc) 0)
  1844.     (makedir destenvarc (infos))
  1845. )
  1846.  
  1847. (makeassign "lhex_temp")
  1848. (makeassign "lhex_temp" destenvarc)
  1849. (set ENVERROR (run "ram:lhex -qfw=lhex_temp: x " archive-env))
  1850. (if  ( <> ENVERROR 0)
  1851.     (message #env_error)
  1852. )
  1853.  
  1854. (set destenvarc (tackon "env:" "STORMCPP"))
  1855. (if                                         ; // Verzeichnis für Envargumente erzeugen
  1856.   (= (exists destenvarc) 0)
  1857.     (makedir destenvarc (infos))
  1858. )
  1859.  
  1860. (makeassign "lhex_temp")
  1861. (makeassign "lhex_temp" destenvarc)
  1862. (set ENVERROR (run "ram:lhex -qfw=lhex_temp: x " archive-env))
  1863. (if  ( <> ENVERROR 0)
  1864.     (message #env_error)
  1865. )
  1866.  
  1867. ;==================================================================================
  1868.  
  1869.  
  1870. ;=================== Grafiken =====================================================
  1871.  
  1872. (complete 20)
  1873.  
  1874. ; Compiler-System entpacken
  1875.  
  1876. (makeassign "lhex_temp" destbin)
  1877.  
  1878. (
  1879.     (working #wrk_gfxdecrunch)
  1880.     (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-grafiken))
  1881.     (if  ( <> COMPERROR 0)
  1882.         (message #decrunch_error)
  1883.     )
  1884. )
  1885.  
  1886. ;==================================================================================
  1887.  
  1888. ;================= Lexika =========================================================
  1889.  
  1890. (complete 24)
  1891.  
  1892. (makeassign "lhex_temp" destdict)
  1893.  
  1894. (set bool 1)
  1895.  
  1896. (set destbinexists      (tackon destdict "Preprocessor.dic"))
  1897.  
  1898. (if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; // Lexikon vorhanden?
  1899.     (
  1900.         (set bool 
  1901.             (askbool
  1902.                (prompt #ask_lexdecrunch)
  1903.                (help #auswahlhilfe)
  1904.                (default 1)
  1905.                (choices #yeskey #nokey)
  1906.             )
  1907.         )
  1908.     )
  1909. )
  1910.  
  1911. (if (= bool 1)
  1912.     (
  1913.         (working #wrk_lexdecrunch)
  1914.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-lexika))
  1915.         (if  ( <> COMPERROR 0)
  1916.             (message #decrunch_error)
  1917.         )
  1918.     )
  1919. )
  1920. ;==================================================================================
  1921.  
  1922. ;============= Demos ==============================================================
  1923.  
  1924. (complete 28)
  1925.  
  1926. ; ansidemo entpacken
  1927.  
  1928. (makeassign "lhex_temp" destdemo)
  1929.  
  1930. (set bool 1)
  1931.  
  1932. (set destdemoexists     (tackon destdemo "COLORWHEEL"))
  1933.  
  1934. (if (AND (> @user-level 0) (> (exists destdemoexists) 0))                       ; Beispiele vorhanden?
  1935.     (
  1936.         (set bool
  1937.             (askbool
  1938.                 (prompt #ask_demodecrunch)
  1939.                 (help #auswahlhilfe)
  1940.                 (default 1)
  1941.                 (choices #yeskey #nokey)
  1942.             )
  1943.         )
  1944.     )
  1945. )
  1946.  
  1947. ;(debug "Rückgabe von AskBool" bool)
  1948.  
  1949. (if (= bool 1)
  1950.     (
  1951.         (working #wrk_demodecrunch)
  1952.         (set DEMOERROR (run "ram:lhex -qfw=lhex_temp: x " archive-demos))
  1953.         (if  ( <> DEMOERROR 0)
  1954.             (message #decrunch_error)
  1955.         )
  1956.     )
  1957. )
  1958.  
  1959. ;==================================================================================
  1960.  
  1961. ;================= Lokale ======================================================
  1962.  
  1963. (complete 32)
  1964.  
  1965. ; // Cataloge entpacken
  1966.  
  1967.  
  1968. (if (= 2 (bitand install_lokale install_lokale_german))
  1969.     (
  1970.         (set lokale (tackon destlokale "Deutsch"))
  1971.         (makeassign "lhex_temp" lokale)
  1972.         (working #wrk_localedecrunchger)
  1973.         (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-lokale-deutsch))
  1974.         (if  ( <> INCLERROR 0)
  1975.             (message #decrunch_error)
  1976.         )
  1977.     ))
  1978.  
  1979. (if (= 4 (bitand install_lokale install_lokale_italien))
  1980.     (
  1981.         (set lokale (tackon destlokale "Italiano"))
  1982.         (makeassign "lhex_temp" lokale)
  1983.         (working #wrk_localedecrunchital)
  1984.         (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-lokale-italien))
  1985.         (if  ( <> INCLERROR 0)
  1986.             (message #decrunch_error)
  1987.         )
  1988.     ))
  1989.  
  1990. ;(if (= 8 (bitand install_lokale install_lokale_frensh))
  1991. ;    (
  1992. ;        (set lokale (tackon destlokale "Français"))
  1993. ;        (makeassign "lhex_temp" lokale)
  1994. ;        (working #wrk_localedecrunchfranz)
  1995. ;        (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-lokale-frensh))
  1996. ;        (if  ( <> INCLERROR 0)
  1997. ;            (message #decrunch_error)
  1998. ;        )
  1999. ;    ))
  2000.  
  2001. ;==================================================================================
  2002.  
  2003. ;================= MathLibs =======================================================
  2004.  
  2005. (complete 36)
  2006.  
  2007. (makeassign "lhex_temp" destmath)
  2008.  
  2009. (set bool 1)
  2010.  
  2011. (set destbinexists (tackon destmath "math000.lib"))
  2012.  
  2013. (if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Mathe.Libs vorhanden?
  2014.     (
  2015.         (set bool 
  2016.             (askbool
  2017.                 (prompt #ask_mathlibdecrunch)
  2018.                     (help #auswahlhilfe)
  2019.                     (default 1)
  2020.                     (choices #yeskey #nokey)
  2021.             )
  2022.         )
  2023.     )
  2024. )
  2025.  
  2026. (if (= bool 1)
  2027.     (
  2028.         (working #wrk_mathlibdecrunch)
  2029.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-stormmath))
  2030.         (if  ( <> COMPERROR 0)
  2031.             (message #decrunch_error)
  2032.         )
  2033.     )
  2034. )
  2035. ;==================================================================================
  2036.  
  2037. ;================= Quelltexte =====================================================
  2038.  
  2039. (complete 44)
  2040.  
  2041. (makeassign "lhex_temp" destsource)
  2042.  
  2043. (set bool 1)
  2044.  
  2045. (set destbinexists (tackon destsource "Locale"))
  2046.  
  2047. (if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Quellen vorhanden?
  2048.     (
  2049.         (set bool 
  2050.             (askbool
  2051.                 (prompt #ask_sourcedecrunch)
  2052.                     (help #auswahlhilfe)
  2053.                     (default 1)
  2054.                     (choices #yeskey #nokey)
  2055.             )
  2056.         )
  2057.     )
  2058. )
  2059.  
  2060. (if (= bool 1)
  2061.     (
  2062.         (working #wrk_sourcedecrunch)
  2063.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-source))
  2064.         (if  ( <> COMPERROR 0)
  2065.             (message #decrunch_error)
  2066.         )
  2067.     )
  2068. )
  2069. ;==================================================================================
  2070.  
  2071. ;================= Startup-Codes ==================================================
  2072.  
  2073. (complete 48)
  2074.  
  2075. (makeassign "lhex_temp" destbin)
  2076.  
  2077. (set bool 1)
  2078.  
  2079. (set destbinexists (tackon destbin "startup.o"))
  2080.  
  2081. (if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Quellen vorhanden?
  2082.     (
  2083.         (set bool 
  2084.             (askbool
  2085.                 (prompt #ask_startupdecrunch)
  2086.                     (help #auswahlhilfe)
  2087.                     (default 1)
  2088.                     (choices #yeskey #nokey)
  2089.             )
  2090.         )
  2091.     )
  2092. )
  2093.  
  2094. (if (= bool 1)
  2095.     (
  2096.         (working #wrk_startupdecrunch)
  2097.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-startupcode))
  2098.         (if  ( <> COMPERROR 0)
  2099.             (message #decrunch_error)
  2100.         )
  2101.     )
  2102. )
  2103. ;==================================================================================
  2104.  
  2105. ;============= StormRUN ===========================================================
  2106.  
  2107. (complete 52)
  2108.  
  2109. (makeassign "lhex_temp" destbin)
  2110.  
  2111. (set bool 1)
  2112.  
  2113. (set destbinexists      (tackon destbin "STORMRUN"))
  2114.  
  2115. (if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; StormRun vorhanden?
  2116.     (
  2117.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2118.         (
  2119.         (set bool 1)
  2120.         )
  2121.     ))
  2122. )
  2123.  
  2124. (if (= bool 1)
  2125.     (
  2126.         (working #wrk_rundecrunch)
  2127.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-run))
  2128.         (if  ( <> COMPERROR 0)
  2129.             (message #decrunch_error)
  2130.         )
  2131.     )
  2132. )
  2133. ;==================================================================================
  2134.  
  2135. ; Diskette 2 einlegen! **********************************************************************************
  2136.  
  2137. (askdisk
  2138.     (prompt #prp-insert-disk2)
  2139.     (help #askdir-help)
  2140.     (dest "StormC_Disk2")
  2141. )
  2142.  
  2143. ;============= ASM- Includes =====================================================
  2144.  
  2145. (complete 56)
  2146.  
  2147. (makeassign "lhex_temp" destasminclude)
  2148.  
  2149. ; // Includes entpacken
  2150.  
  2151. (set bool 1)
  2152.  
  2153. (set destincludeexists  (tackon destasminclude "lvo.i"))
  2154.  
  2155. (if (AND (> @user-level 0) (> (exists destincludeexists) 0))                    ; Includes vorhanden?
  2156.     (
  2157.         (set bool
  2158.             (askbool
  2159.                 (prompt #ask_asmincldecrunch)
  2160.                 (help #auswahlhilfe)
  2161.                 (default 1)
  2162.                 (choices #yeskey #nokey)
  2163.             )
  2164.         )
  2165.     )
  2166. )
  2167.  
  2168. (if (= bool 1)
  2169.     (
  2170.         (working #wrk_asmincldecrunch)
  2171.         (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-asminclude))
  2172.         (if  ( <> INCLERROR 0)
  2173.             (message #decrunch_error)
  2174.         )
  2175.     )
  2176. )
  2177. ;==================================================================================
  2178.  
  2179. ;============= PhxAss Entpacken ===================================================
  2180.  
  2181. (complete 60)
  2182.  
  2183. (makeassign "lhex_temp" destphxass)
  2184.  
  2185. ; // Includes entpacken
  2186.  
  2187. (set bool 1)
  2188.  
  2189. (set destbinexists (tackon destphxass "phxass.guide"))
  2190.  
  2191. (if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; ASM vorhanden?
  2192.     (
  2193.         (set bool
  2194.             (askbool
  2195.                 (prompt #ask_phxassdecrunch)
  2196.                 (help #auswahlhilfe)
  2197.                 (default 1)
  2198.                 (choices #yeskey #nokey)
  2199.             )
  2200.         )
  2201.     )
  2202. )
  2203.  
  2204. (if (= bool 1)
  2205.     (
  2206.         (working #wrk_phxassdecrunch)
  2207.         (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-phxass))
  2208.         (if  ( <> INCLERROR 0)
  2209.             (message #decrunch_error)
  2210.         )
  2211.     )
  2212. )
  2213.  
  2214. (Set sourcephxass (tackon destphxass "BIN/FreePhxASS"))
  2215.  
  2216. (if (exists sourcephxass)
  2217.     (
  2218.         (working #wrk_phxassdecrunch)
  2219.         (copyfiles
  2220.             (source sourcephxass)
  2221.             (dest destbin)
  2222.             (newname "PhxASS")
  2223.         )
  2224.     )
  2225. )
  2226. ;==================================================================================
  2227.  
  2228. ;============= StormASM ===========================================================
  2229.  
  2230. (complete 64)
  2231.  
  2232. (makeassign "lhex_temp" destbin)
  2233.  
  2234. (set bool 1)
  2235.  
  2236. (set destbinexists      (tackon destbin "STORMASM"))
  2237.  
  2238. (if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; StormASM vorhanden?
  2239.     (
  2240.         (set bool
  2241.             (askbool
  2242.                 (prompt #ask_asmdecrunch)
  2243.                 (help #auswahlhilfe)
  2244.                 (default 1)
  2245.                 (choices #yeskey #nokey)
  2246.             )
  2247.         )
  2248.     )
  2249. )
  2250.  
  2251. (if (= bool 1)
  2252.     (
  2253.         (working #wrk_asmdecrunch)
  2254.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-asm))
  2255.         (if  ( <> COMPERROR 0)
  2256.             (message #decrunch_error)
  2257.         )
  2258.     )
  2259. )
  2260. ;==================================================================================
  2261.  
  2262. ;================== Compiler ====================================================
  2263.  
  2264. (complete 68)
  2265.  
  2266. (makeassign "lhex_temp" destbin)
  2267.  
  2268. (set bool 1)
  2269.  
  2270. (set destbinexists (tackon destbin "STORMC"))
  2271.  
  2272. (if (AND (> @user-level 0) (> (exists destbinexists) 0))    ; Compiler vorhanden?
  2273.     (
  2274.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2275.         (
  2276.         (set bool 1)
  2277.         )
  2278.     ))
  2279. )
  2280.  
  2281. (if (= bool 1)                                              ; Compiler entpacken
  2282.     (
  2283.     (working #wrk_compdecrunch)
  2284.     (makeassign "lhex_temp" destbin)
  2285.  
  2286.     (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-compiler))
  2287.     (if  ( <> COMPERROR 0)
  2288.         (message #decrunch_error)
  2289.     ))
  2290. )
  2291. ;==================================================================================
  2292.  
  2293. ;============= StormCPP ===========================================================
  2294.  
  2295. (complete 72)
  2296.  
  2297. (makeassign "lhex_temp" destbin)
  2298.  
  2299. (set bool 1)
  2300.  
  2301. (set destbinexists      (tackon destbin "STORMCPP"))
  2302.  
  2303. (if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; StormCPP vorhanden?
  2304.     (
  2305.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2306.         (
  2307.         (set bool 1)
  2308.         )
  2309.     ))
  2310. )
  2311.  
  2312. (if (= bool 1)
  2313.     (
  2314.         (working #wrk_cppdecrunch)
  2315.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-cpp))
  2316.         (if  ( <> COMPERROR 0)
  2317.             (message #decrunch_error)
  2318.         )
  2319.     )
  2320. )
  2321. ;==================================================================================
  2322.  
  2323. ;================= Storm.Library ==================================================
  2324.  
  2325. (complete 76)
  2326.  
  2327. (makeassign "lhex_temp" destbin)
  2328.  
  2329. (set bool 1)
  2330.  
  2331. (set destbinexists (tackon destbin "AppManager.library"))
  2332.  
  2333. (if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Menumanager.Library vorhanden?
  2334.     (
  2335.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2336.         (
  2337.         (set bool 1)
  2338.         )
  2339.     ))
  2340. )
  2341.  
  2342. (if (= bool 1)
  2343.     (
  2344.         (working #wrk_stormlibdecrunch)
  2345.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-stormlib))
  2346.         (if  ( <> COMPERROR 0)
  2347.             (message #decrunch_error)
  2348.         )
  2349.     )
  2350. )
  2351. ;==================================================================================
  2352.  
  2353. ;==================== Linker ======================================================
  2354.  
  2355. (complete 80)
  2356.  
  2357. (makeassign "lhex_temp" destbin)
  2358.  
  2359. (set bool 1)
  2360.  
  2361. (set destbinexists      (tackon destbin "STORMLINK"))
  2362.  
  2363. (if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; Linker vorhanden?
  2364.     (
  2365.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2366.         (
  2367.         (set bool 1)
  2368.         )
  2369.     ))
  2370. )
  2371.  
  2372. (if (= bool 1)
  2373.     (
  2374.     (working #wrk_linkdecrunch)
  2375.     (makeassign "lhex_temp" destbin)
  2376.  
  2377.     (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-linker))
  2378.     (if  ( <> COMPERROR 0)
  2379.         (message #decrunch_error)
  2380.     ))
  2381. )
  2382. ;==================================================================================
  2383.  
  2384. ;================= Wizard.Library ================================================
  2385.  
  2386. (complete 82)
  2387.  
  2388. (makeassign "lhex_temp" "RAM:")
  2389.  
  2390. (set bool 1)
  2391.  
  2392. (if (= bool 1)
  2393.     (
  2394.         (working #wrk_stormlibdecrunch)
  2395.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-wizardlib))
  2396.         (if  ( <> COMPERROR 0)
  2397.             (message #decrunch_error)
  2398.         )
  2399.     )
  2400. )
  2401.  
  2402. (if (exists "RAM:Wizard.library")
  2403.     (
  2404.         (copylib
  2405.  
  2406.             (prompt  #stormc_install_wizardlib)
  2407.             (help    #stormc_install_wizardlib_help)
  2408.             (source  "ram:wizard.library")
  2409.             (dest    "libs:")
  2410.             (confirm)
  2411.         )
  2412.     (delete "RAM:Wizard.library")
  2413.     )
  2414. )
  2415.  
  2416. ;==================================================================================
  2417.  
  2418. ; Diskette 3 einlegen! **********************************************************************************
  2419.  
  2420. (askdisk
  2421.     (prompt #prp-insert-disk3)
  2422.     (help #askdir-help)
  2423.     (dest "StormC_Disk3")
  2424. )
  2425.  
  2426. ;============= Includes ===========================================================
  2427.  
  2428. (complete 84)
  2429.  
  2430. (makeassign "lhex_temp" destinclude)
  2431.  
  2432. ; // Includes entpacken
  2433.  
  2434. (set bool 1)
  2435.  
  2436. (set destincludeexists  (tackon destinclude "assert.h"))
  2437.  
  2438. (if (AND (> @user-level 0) (> (exists destincludeexists) 0))                    ; Includes vorhanden?
  2439.     (
  2440.         (set bool
  2441.             (askbool
  2442.                 (prompt #ask_incldecrunch)
  2443.                 (help #auswahlhilfe)
  2444.                 (default 1)
  2445.                 (choices #yeskey #nokey)
  2446.             )
  2447.         )
  2448.     )
  2449. )
  2450.  
  2451. (if (= bool 1)
  2452.     (
  2453.         (working #wrk_incldecrunch)
  2454.         (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-include))
  2455.         (if  ( <> INCLERROR 0)
  2456.             (message #decrunch_error)
  2457.         )
  2458.     )
  2459. )
  2460. ;==================================================================================
  2461.  
  2462. ;================= Libraries ======================================================
  2463.  
  2464. (makeassign "lhex_temp")
  2465.  
  2466. (complete 86)
  2467.  
  2468. ; // Libraries entpacken
  2469.  
  2470. (set bool 1)
  2471.  
  2472. (set destlibexists (tackon destlib "Storm.Lib"))
  2473.  
  2474. (if (AND (> @user-level 0) (> (exists destlibexists) 0))          ; // Libs vorhanden?
  2475.     (
  2476.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2477.         (
  2478.         (set bool 1)
  2479.         )
  2480.     ))
  2481. )
  2482.  
  2483. (if (= bool 1)
  2484.     (
  2485.     (working #wrk_libdecrunch)
  2486.     (makeassign "lhex_temp" destlib)
  2487.     (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-libs))
  2488.     (if  ( <> INCLERROR 0)
  2489.         (message #decrunch_error)
  2490.     ))
  2491. )
  2492. ;==================================================================================
  2493.  
  2494. ;================= Fast-Library====================================================
  2495.  
  2496. (makeassign "lhex_temp")
  2497.  
  2498. (complete 88)
  2499.  
  2500. ; // Libraries entpacken
  2501.  
  2502. (set bool 1)
  2503.  
  2504. (set destlibexists (tackon destfastlib "lib/StormAmiga.Lib"))
  2505.  
  2506. (if (AND (> @user-level 0) (> (exists destlibexists) 0))          ; // Libs vorhanden?
  2507.     (
  2508.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2509.         (
  2510.         (set bool 1)
  2511.         )
  2512.     ))
  2513. )
  2514.  
  2515. (if (= bool 1)
  2516.     (
  2517.     (working #wrk_fastlibdecrunch)
  2518.     (makeassign "lhex_temp" destfastlib)
  2519.     (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-fastlib))
  2520.     (if  ( <> INCLERROR 0)
  2521.         (message #decrunch_error)
  2522.         )
  2523.  
  2524.     (copyfiles
  2525.         (dest destlib)
  2526.         (source destlibexists)
  2527.         )
  2528.  
  2529.     )
  2530. )
  2531. ;==================================================================================
  2532.  
  2533. ;============= StormShell =========================================================
  2534.  
  2535. (complete 92)
  2536.  
  2537. (makeassign "lhex_temp" destbin)
  2538.  
  2539. (set bool 1)
  2540.  
  2541. (set destbinexists      (tackon destbin "STORMSHELL"))
  2542.  
  2543. (if (AND (> @user-level 0) (> (exists destbinexists) 0))                        ; Shell vorhanden?
  2544.     (
  2545.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2546.         (
  2547.         (set bool 1)
  2548.         )
  2549.     ))
  2550. )
  2551.  
  2552. (if (= bool 1)
  2553.     (
  2554.         (working #wrk_shelldecrunch)
  2555.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-shell))
  2556.         (if  ( <> COMPERROR 0)
  2557.             (message #decrunch_error)
  2558.         )
  2559.     )
  2560. )
  2561. ;==================================================================================
  2562.  
  2563. ;===================== Librarian ==================================================
  2564.  
  2565. (complete 94)
  2566.  
  2567. (makeassign "lhex_temp" destbin)
  2568.  
  2569. (set bool 1)
  2570.  
  2571. (set destbinexists (tackon destbin "STORMLibrarian"))
  2572.  
  2573. (if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; librarian vorhanden?
  2574.     (
  2575.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2576.         (
  2577.         (set bool 1)
  2578.         )
  2579.     ))
  2580. )
  2581.  
  2582. (if (= bool 1)
  2583.     (
  2584.     (working #wrk_librariandecrunch)
  2585.     (makeassign "lhex_temp" destbin)
  2586.  
  2587.     (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-librarian))
  2588.     (if  ( <> COMPERROR 0)
  2589.         (message #decrunch_error)
  2590.     ))
  2591. )
  2592.  
  2593. (complete 95)
  2594. ;==================================================================================
  2595.  
  2596. ; Diskette 4 einlegen! **********************************************************************************
  2597.  
  2598. (askdisk
  2599.     (prompt #prp-insert-disk4)
  2600.     (help #askdir-help)
  2601.     (dest "StormC_Disk4")
  2602. )
  2603.  
  2604. ;===================== EDITOR =====================================================
  2605.  
  2606. (makeassign "lhex_temp" destbin)
  2607.  
  2608. (set bool 1)
  2609.  
  2610. (set destbinexists (tackon destbin "STORMED"))
  2611.  
  2612. (if (AND (> @user-level 0) (> (exists destbinexists) 0)) ; Editor vorhanden?
  2613.     (
  2614.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2615.         (
  2616.         (set bool 1)
  2617.         )
  2618.     ))
  2619. )
  2620.  
  2621. (if (= bool 1)
  2622.     (
  2623.     (working #wrk_eddecrunch)
  2624.     (makeassign "lhex_temp" destbin)
  2625.  
  2626.     (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-editor))
  2627.     (if  ( <> COMPERROR 0)
  2628.         (message #decrunch_error)
  2629.     ))
  2630. )
  2631. ;==================================================================================
  2632.  
  2633. ; // MUI Libraries entpacken
  2634.  
  2635. (complete 97)
  2636.  
  2637. (set bool 1)
  2638.  
  2639. (set destlibexists (tackon destmuilib "Lib/TWiMUI.Lib"))
  2640.  
  2641. (if (AND (> @user-level 0) (> (exists destlibexists) 0))          ; // Libs vorhanden?
  2642.     (
  2643.     (if (<> 65537 (getversion destbinexists)) ; ungleich V1.1
  2644.         (
  2645.         (set bool 1)
  2646.         )
  2647.     ))
  2648. )
  2649.  
  2650. (if (= bool 1)
  2651.     (
  2652.     (working #wrk_muilibdecrunch)
  2653.     (makeassign "lhex_temp" destmuilib)
  2654.     (set INCLERROR (run "ram:lhex -qfw=lhex_temp: x " archive-muilib))
  2655.     (if  ( <> INCLERROR 0)
  2656.         (message #decrunch_error)
  2657.         )
  2658.  
  2659.     (copyfiles
  2660.         (dest destlib)
  2661.         (source destlibexists)
  2662.         )
  2663.     )
  2664. )
  2665.  
  2666. ;================= Online Help ====================================================
  2667.  
  2668. (complete 98)
  2669.  
  2670. (makeassign "lhex_temp" desthelp)
  2671.  
  2672. (set bool 1)
  2673.  
  2674. (set destbinexists (tackon desthelp "StormReference.guide"))
  2675.  
  2676. (if (AND (> @user-level 0) (> (exists destbinexists) 0))  ; // Mathe.Libs vorhanden?
  2677.     (
  2678.         (set bool 
  2679.             (askbool
  2680.                 (prompt #ask_onlinedocudecrunch)
  2681.                     (help #auswahlhilfe)
  2682.                     (default 1)
  2683.                     (choices #yeskey #nokey)
  2684.             )
  2685.         )
  2686.     )
  2687. )
  2688.  
  2689. (if (= bool 1)
  2690.     (
  2691.         (working #wrk_onlinedocudecrunch)
  2692.         (set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-onlinedocu))
  2693.         (if  ( <> COMPERROR 0)
  2694.             (message #decrunch_error)
  2695.         )
  2696.     )
  2697. )
  2698. ;==================================================================================
  2699.  
  2700. ;============= Startup ändern =====================================================
  2701.  
  2702. (complete 99)
  2703.  
  2704.  
  2705. ; ------- STARTUP ÄNDERN
  2706.  
  2707. (set #startuptemp (cat "\nASSIGN STORMC: " folder "\n"))
  2708.  
  2709. (set #startup (cat "\n"
  2710.     "To get StormC work well there has to be made\n"
  2711.     "some changes to your User-Startup.\n\n"
  2712.     #startuptemp
  2713.     ))
  2714.  
  2715. (set #endnow (cat "Installation of StormC V1.1completed.\n"
  2716.     "When the lines:\n" #startuptemp "\ndo not appear\n"
  2717.     "in your Startup-Sequence or User-Startup,\n"
  2718.     "please do it manually.\n\n"
  2719.     "Remove all disks and start StormC.\n\n"
  2720.     "Best wishes..."
  2721.     "HAAGE & PARTNER"
  2722.     ))
  2723.  
  2724. (if (= @language "deutsch") (
  2725.  
  2726. (set #startup (cat "\n"
  2727.     "Um mit StromC richtig arbeiten zu können, muß \n"
  2728.     "eine Änderung an der User-Startup vorgenommen \n"
  2729.     "werden:                                       \n"
  2730.     "                                              \n"
  2731.     #startuptemp
  2732.     ))
  2733.  
  2734. (set #endnow (cat "\n"
  2735.     "Installation des StormC Compilers V1.1 beendet.\n\n"
  2736.     "Falls die Zeile:\n" #startuptemp "\n"
  2737.     "nicht in Ihre User-Startup eingefügt wurde,   \n"
  2738.     "dann holen Sie dies bitte nach.               \n\n"
  2739.     "Entfernen Sie nun die Diskette aus Ihrem      \n"
  2740.     "Laufwerk und starten Sie StormC.              \n\n"
  2741.     "Wir wünschen Ihnen viel Erfolg bei der Lösung \n"
  2742.     "Ihrer Programmieraufgaben!"
  2743.     ))
  2744. ))
  2745.  
  2746. (startup "StormC"
  2747.     (prompt #startup)
  2748.     (help #help-startup)
  2749.     (command #startuptemp)
  2750. )
  2751.  
  2752. (makeassign "STORMC")
  2753. (makeassign "STORMC" folder)
  2754.  
  2755. (delete "RAM:LHeX")
  2756.  
  2757. (complete 100)
  2758.  
  2759. ; ------- FERTIG
  2760.  
  2761. (working #wrk_changingtooltypes)
  2762.  
  2763. (if (= colorset 1)
  2764.     (
  2765.         (tooltype
  2766.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2767.             (setstack 15000)
  2768.             (settooltype "PUBSCREEN" #pubscvar)
  2769.             (settooltype "QUIET" #quietvar)
  2770.             (settooltype "HOTHELP" #hothelpvar)
  2771.             (settooltype "GOLDED" #goldedvar)
  2772.             (settooltype "SAVEMEM" #savememvar)
  2773.             (dest "StormC:Examples/Colorwheel/Colorwheel.¶")
  2774.         )
  2775.         (tooltype
  2776.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2777.             (setstack 15000)
  2778.             (settooltype "PUBSCREEN" #pubscvar)
  2779.             (settooltype "QUIET" #quietvar)
  2780.             (settooltype "HOTHELP" #hothelpvar)
  2781.             (settooltype "GOLDED" #goldedvar)
  2782.             (settooltype "SAVEMEM" #savememvar)
  2783.             (dest "StormC:Examples/DebugTutorial/DebugTutorial.¶")
  2784.         )
  2785.         (tooltype
  2786.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2787.             (setstack 15000)
  2788.             (settooltype "PUBSCREEN" #pubscvar)
  2789.             (settooltype "QUIET" #quietvar)
  2790.             (settooltype "HOTHELP" #hothelpvar)
  2791.             (settooltype "GOLDED" #goldedvar)
  2792.             (settooltype "SAVEMEM" #savememvar)
  2793.             (dest "StormC:Examples/Fplot/Fplot.¶")
  2794.         )
  2795.         (tooltype
  2796.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2797.             (setstack 15000)
  2798.             (settooltype "PUBSCREEN" #pubscvar)
  2799.             (settooltype "QUIET" #quietvar)
  2800.             (settooltype "HOTHELP" #hothelpvar)
  2801.             (settooltype "GOLDED" #goldedvar)
  2802.             (settooltype "SAVEMEM" #savememvar)
  2803.             (dest "StormC:Examples/Gadtools/Gadtools.¶")
  2804.         )
  2805.         (tooltype
  2806.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2807.             (setstack 15000)
  2808.             (settooltype "PUBSCREEN" #pubscvar)
  2809.             (settooltype "QUIET" #quietvar)
  2810.             (settooltype "HOTHELP" #hothelpvar)
  2811.             (settooltype "GOLDED" #goldedvar)
  2812.             (settooltype "SAVEMEM" #savememvar)
  2813.             (dest "StormC:Examples/Illresource/Illresource.¶")
  2814.         )
  2815.         (tooltype
  2816.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2817.             (setstack 15000)
  2818.             (settooltype "PUBSCREEN" #pubscvar)
  2819.             (settooltype "QUIET" #quietvar)
  2820.             (settooltype "HOTHELP" #hothelpvar)
  2821.             (settooltype "GOLDED" #goldedvar)
  2822.             (settooltype "SAVEMEM" #savememvar)
  2823.             (dest "StormC:Examples/Parser/Parser.¶")
  2824.         )
  2825.         (tooltype
  2826.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2827.             (setstack 15000)
  2828.             (settooltype "PUBSCREEN" #pubscvar)
  2829.             (settooltype "QUIET" #quietvar)
  2830.             (settooltype "HOTHELP" #hothelpvar)
  2831.             (settooltype "GOLDED" #goldedvar)
  2832.             (settooltype "SAVEMEM" #savememvar)
  2833.             (dest "StormC:Examples/Pi/Drops.¶")
  2834.         )
  2835.         (tooltype
  2836.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2837.             (setstack 15000)
  2838.             (settooltype "PUBSCREEN" #pubscvar)
  2839.             (settooltype "QUIET" #quietvar)
  2840.             (settooltype "HOTHELP" #hothelpvar)
  2841.             (settooltype "GOLDED" #goldedvar)
  2842.             (settooltype "SAVEMEM" #savememvar)
  2843.             (dest "StormC:Examples/shard lib example/lib.¶")
  2844.         )
  2845.         (tooltype
  2846.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2847.             (setstack 15000)
  2848.             (settooltype "PUBSCREEN" #pubscvar)
  2849.             (settooltype "QUIET" #quietvar)
  2850.             (settooltype "HOTHELP" #hothelpvar)
  2851.             (settooltype "GOLDED" #goldedvar)
  2852.             (settooltype "SAVEMEM" #savememvar)
  2853.             (dest "StormC:Examples/shard lib example/test.¶")
  2854.         )
  2855.  
  2856.         (tooltype
  2857.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2858.             (setstack 15000)
  2859.             (settooltype "PUBSCREEN" #pubscvar)
  2860.             (settooltype "QUIET" #quietvar)
  2861.             (settooltype "HOTHELP" #hothelpvar)
  2862.             (settooltype "GOLDED" #goldedvar)
  2863.             (settooltype "SAVEMEM" #savememvar)
  2864.             (dest "Env:StormCPP/def_project")
  2865.         )
  2866.         (tooltype
  2867.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2868.             (setstack 15000)
  2869.             (settooltype "PUBSCREEN" #pubscvar)
  2870.             (settooltype "QUIET" #quietvar)
  2871.             (settooltype "HOTHELP" #hothelpvar)
  2872.             (settooltype "GOLDED" #goldedvar)
  2873.             (settooltype "SAVEMEM" #savememvar)
  2874.             (dest "Env:StormCPP/def_text")
  2875.         )
  2876.         (tooltype
  2877.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2878.             (setstack 15000)
  2879.             (settooltype "PUBSCREEN" #pubscvar)
  2880.             (settooltype "QUIET" #quietvar)
  2881.             (settooltype "HOTHELP" #hothelpvar)
  2882.             (settooltype "GOLDED" #goldedvar)
  2883.             (settooltype "SAVEMEM" #savememvar)
  2884.             (dest "Env:StormCPP/def_text.c")
  2885.         )
  2886.         (tooltype
  2887.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2888.             (setstack 15000)
  2889.             (settooltype "PUBSCREEN" #pubscvar)
  2890.             (settooltype "QUIET" #quietvar)
  2891.             (settooltype "HOTHELP" #hothelpvar)
  2892.             (settooltype "GOLDED" #goldedvar)
  2893.             (settooltype "SAVEMEM" #savememvar)
  2894.             (dest "Env:StormCPP/def_text.cc")
  2895.         )
  2896.         (tooltype
  2897.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2898.             (setstack 15000)
  2899.             (settooltype "PUBSCREEN" #pubscvar)
  2900.             (settooltype "QUIET" #quietvar)
  2901.             (settooltype "HOTHELP" #hothelpvar)
  2902.             (settooltype "GOLDED" #goldedvar)
  2903.             (settooltype "SAVEMEM" #savememvar)
  2904.             (dest "Env:StormCPP/def_text.cpp")
  2905.         )
  2906.         (tooltype
  2907.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2908.             (setstack 15000)
  2909.             (settooltype "PUBSCREEN" #pubscvar)
  2910.             (settooltype "QUIET" #quietvar)
  2911.             (settooltype "HOTHELP" #hothelpvar)
  2912.             (settooltype "GOLDED" #goldedvar)
  2913.             (settooltype "SAVEMEM" #savememvar)
  2914.             (dest "Env:StormCPP/def_text.h")
  2915.         )
  2916.         (tooltype
  2917.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2918.             (setstack 15000)
  2919.             (settooltype "PUBSCREEN" #pubscvar)
  2920.             (settooltype "QUIET" #quietvar)
  2921.             (settooltype "HOTHELP" #hothelpvar)
  2922.             (settooltype "GOLDED" #goldedvar)
  2923.             (settooltype "SAVEMEM" #savememvar)
  2924.             (dest "Envarc:StormCPP/def_project")
  2925.         )
  2926.         (tooltype
  2927.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2928.             (setstack 15000)
  2929.             (settooltype "PUBSCREEN" #pubscvar)
  2930.             (settooltype "QUIET" #quietvar)
  2931.             (settooltype "HOTHELP" #hothelpvar)
  2932.             (settooltype "GOLDED" #goldedvar)
  2933.             (settooltype "SAVEMEM" #savememvar)
  2934.             (dest "Envarc:StormCPP/def_text")
  2935.         )
  2936.         (tooltype
  2937.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2938.             (setstack 15000)
  2939.             (settooltype "PUBSCREEN" #pubscvar)
  2940.             (settooltype "QUIET" #quietvar)
  2941.             (settooltype "HOTHELP" #hothelpvar)
  2942.             (settooltype "GOLDED" #goldedvar)
  2943.             (settooltype "SAVEMEM" #savememvar)
  2944.             (dest "Envarc:StormCPP/def_text.c")
  2945.         )
  2946.         (tooltype
  2947.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2948.             (setstack 15000)
  2949.             (settooltype "PUBSCREEN" #pubscvar)
  2950.             (settooltype "QUIET" #quietvar)
  2951.             (settooltype "HOTHELP" #hothelpvar)
  2952.             (settooltype "GOLDED" #goldedvar)
  2953.             (settooltype "SAVEMEM" #savememvar)
  2954.             (dest "Envarc:StormCPP/def_text.cc")
  2955.         )
  2956.         (tooltype
  2957.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2958.             (setstack 15000)
  2959.             (settooltype "PUBSCREEN" #pubscvar)
  2960.             (settooltype "QUIET" #quietvar)
  2961.             (settooltype "HOTHELP" #hothelpvar)
  2962.             (settooltype "GOLDED" #goldedvar)
  2963.             (settooltype "SAVEMEM" #savememvar)
  2964.             (dest "Envarc:StormCPP/def_text.cpp")
  2965.         )
  2966.         (tooltype
  2967.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2968.             (setstack 15000)
  2969.             (settooltype "PUBSCREEN" #pubscvar)
  2970.             (settooltype "QUIET" #quietvar)
  2971.             (settooltype "HOTHELP" #hothelpvar)
  2972.             (settooltype "GOLDED" #goldedvar)
  2973.             (settooltype "SAVEMEM" #savememvar)
  2974.             (dest "Envarc:StormCPP/def_text.h")
  2975.         )
  2976.     (message #yessyntaxcolouring_hint) ; // Farbliche Syntaxunterscheidung
  2977.  
  2978.     )
  2979.     (
  2980.         (tooltype
  2981.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2982.             (setstack 15000)
  2983.             (settooltype "PUBSCREEN" #pubscvar)
  2984.             (settooltype "QUIET" #quietvar)
  2985.             (settooltype "HOTHELP" #hothelpvar)
  2986.             (settooltype "GOLDED" #goldedvar)
  2987.             (settooltype "SAVEMEM" #savememvar)
  2988.             (settooltype "DICTIONARIES" "0")
  2989.             (settooltype "SYNTAXCOLORING" "0")
  2990.             (dest "StormC:Examples/Colorwheel/Colorwheel.¶")
  2991.         )
  2992.         (tooltype
  2993.             (setdefaulttool "StormC:StormSYS/StormCPP")
  2994.             (setstack 15000)
  2995.             (settooltype "PUBSCREEN" #pubscvar)
  2996.             (settooltype "QUIET" #quietvar)
  2997.             (settooltype "HOTHELP" #hothelpvar)
  2998.             (settooltype "GOLDED" #goldedvar)
  2999.             (settooltype "SAVEMEM" #savememvar)
  3000.             (settooltype "DICTIONARIES" "0")
  3001.             (settooltype "SYNTAXCOLORING" "0")
  3002.             (dest "StormC:Examples/DebugTutorial/DebugTutorial.¶")
  3003.         )
  3004.         (tooltype
  3005.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3006.             (setstack 15000)
  3007.             (settooltype "PUBSCREEN" #pubscvar)
  3008.             (settooltype "QUIET" #quietvar)
  3009.             (settooltype "HOTHELP" #hothelpvar)
  3010.             (settooltype "GOLDED" #goldedvar)
  3011.             (settooltype "SAVEMEM" #savememvar)
  3012.             (settooltype "DICTIONARIES" "0")
  3013.             (settooltype "SYNTAXCOLORING" "0")
  3014.             (dest "StormC:Examples/Fplot/Fplot.¶")
  3015.         )
  3016.         (tooltype
  3017.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3018.             (setstack 15000)
  3019.             (settooltype "PUBSCREEN" #pubscvar)
  3020.             (settooltype "QUIET" #quietvar)
  3021.             (settooltype "HOTHELP" #hothelpvar)
  3022.             (settooltype "GOLDED" #goldedvar)
  3023.             (settooltype "SAVEMEM" #savememvar)
  3024.             (settooltype "DICTIONARIES" "0")
  3025.             (settooltype "SYNTAXCOLORING" "0")
  3026.             (dest "StormC:Examples/Gadtools/Gadtools.¶")
  3027.         )
  3028.         (tooltype
  3029.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3030.             (setstack 15000)
  3031.             (settooltype "PUBSCREEN" #pubscvar)
  3032.             (settooltype "QUIET" #quietvar)
  3033.             (settooltype "HOTHELP" #hothelpvar)
  3034.             (settooltype "GOLDED" #goldedvar)
  3035.             (settooltype "SAVEMEM" #savememvar)
  3036.             (settooltype "DICTIONARIES" "0")
  3037.             (settooltype "SYNTAXCOLORING" "0")
  3038.             (dest "StormC:Examples/Illresource/Illresource.¶")
  3039.         )
  3040.         (tooltype
  3041.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3042.             (setstack 15000)
  3043.             (settooltype "PUBSCREEN" #pubscvar)
  3044.             (settooltype "QUIET" #quietvar)
  3045.             (settooltype "HOTHELP" #hothelpvar)
  3046.             (settooltype "GOLDED" #goldedvar)
  3047.             (settooltype "SAVEMEM" #savememvar)
  3048.             (settooltype "DICTIONARIES" "0")
  3049.             (settooltype "SYNTAXCOLORING" "0")
  3050.             (dest "StormC:Examples/Parser/Parser.¶")
  3051.         )
  3052.         (tooltype
  3053.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3054.             (setstack 15000)
  3055.             (settooltype "PUBSCREEN" #pubscvar)
  3056.             (settooltype "QUIET" #quietvar)
  3057.             (settooltype "HOTHELP" #hothelpvar)
  3058.             (settooltype "GOLDED" #goldedvar)
  3059.             (settooltype "SAVEMEM" #savememvar)
  3060.             (settooltype "DICTIONARIES" "0")
  3061.             (settooltype "SYNTAXCOLORING" "0")
  3062.             (dest "StormC:Examples/Pi/Drops.¶")
  3063.         )
  3064.         (tooltype
  3065.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3066.             (setstack 15000)
  3067.             (settooltype "PUBSCREEN" #pubscvar)
  3068.             (settooltype "QUIET" #quietvar)
  3069.             (settooltype "HOTHELP" #hothelpvar)
  3070.             (settooltype "GOLDED" #goldedvar)
  3071.             (settooltype "SAVEMEM" #savememvar)
  3072.             (settooltype "DICTIONARIES" "0")
  3073.             (settooltype "SYNTAXCOLORING" "0")
  3074.             (dest "StormC:Examples/shard lib example/lib.¶")
  3075.         )
  3076.         (tooltype
  3077.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3078.             (setstack 15000)
  3079.             (settooltype "PUBSCREEN" #pubscvar)
  3080.             (settooltype "QUIET" #quietvar)
  3081.             (settooltype "HOTHELP" #hothelpvar)
  3082.             (settooltype "GOLDED" #goldedvar)
  3083.             (settooltype "SAVEMEM" #savememvar)
  3084.             (settooltype "DICTIONARIES" "0")
  3085.             (settooltype "SYNTAXCOLORING" "0")
  3086.             (dest "StormC:Examples/shard lib example/test.¶")
  3087.         )
  3088.  
  3089.         (tooltype
  3090.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3091.             (setstack 15000)
  3092.             (settooltype "PUBSCREEN" #pubscvar)
  3093.             (settooltype "QUIET" #quietvar)
  3094.             (settooltype "HOTHELP" #hothelpvar)
  3095.             (settooltype "GOLDED" #goldedvar)
  3096.             (settooltype "SAVEMEM" #savememvar)
  3097.             (settooltype "DICTIONARIES" "0")
  3098.             (settooltype "SYNTAXCOLORING" "0")
  3099.             (dest "Env:StormCPP/def_project")
  3100.         )
  3101.         (tooltype
  3102.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3103.             (setstack 15000)
  3104.             (settooltype "PUBSCREEN" #pubscvar)
  3105.             (settooltype "QUIET" #quietvar)
  3106.             (settooltype "HOTHELP" #hothelpvar)
  3107.             (settooltype "GOLDED" #goldedvar)
  3108.             (settooltype "SAVEMEM" #savememvar)
  3109.             (settooltype "DICTIONARIES" "0")
  3110.             (settooltype "SYNTAXCOLORING" "0")
  3111.             (dest "Env:StormCPP/def_text")
  3112.         )
  3113.         (tooltype
  3114.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3115.             (setstack 15000)
  3116.             (settooltype "PUBSCREEN" #pubscvar)
  3117.             (settooltype "QUIET" #quietvar)
  3118.             (settooltype "HOTHELP" #hothelpvar)
  3119.             (settooltype "GOLDED" #goldedvar)
  3120.             (settooltype "SAVEMEM" #savememvar)
  3121.             (settooltype "DICTIONARIES" "0")
  3122.             (settooltype "SYNTAXCOLORING" "0")
  3123.             (dest "Env:StormCPP/def_text.c")
  3124.         )
  3125.         (tooltype
  3126.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3127.             (setstack 15000)
  3128.             (settooltype "PUBSCREEN" #pubscvar)
  3129.             (settooltype "QUIET" #quietvar)
  3130.             (settooltype "HOTHELP" #hothelpvar)
  3131.             (settooltype "GOLDED" #goldedvar)
  3132.             (settooltype "SAVEMEM" #savememvar)
  3133.             (settooltype "DICTIONARIES" "0")
  3134.             (settooltype "SYNTAXCOLORING" "0")
  3135.             (dest "Env:StormCPP/def_text.cc")
  3136.         )
  3137.         (tooltype
  3138.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3139.             (setstack 15000)
  3140.             (settooltype "PUBSCREEN" #pubscvar)
  3141.             (settooltype "QUIET" #quietvar)
  3142.             (settooltype "HOTHELP" #hothelpvar)
  3143.             (settooltype "GOLDED" #goldedvar)
  3144.             (settooltype "SAVEMEM" #savememvar)
  3145.             (settooltype "DICTIONARIES" "0")
  3146.             (settooltype "SYNTAXCOLORING" "0")
  3147.             (dest "Env:StormCPP/def_text.cpp")
  3148.         )
  3149.         (tooltype
  3150.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3151.             (setstack 15000)
  3152.             (settooltype "PUBSCREEN" #pubscvar)
  3153.             (settooltype "QUIET" #quietvar)
  3154.             (settooltype "HOTHELP" #hothelpvar)
  3155.             (settooltype "GOLDED" #goldedvar)
  3156.             (settooltype "SAVEMEM" #savememvar)
  3157.             (settooltype "DICTIONARIES" "0")
  3158.             (settooltype "SYNTAXCOLORING" "0")
  3159.             (dest "Env:StormCPP/def_text.h")
  3160.         )
  3161.         (tooltype
  3162.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3163.             (setstack 15000)
  3164.             (settooltype "PUBSCREEN" #pubscvar)
  3165.             (settooltype "QUIET" #quietvar)
  3166.             (settooltype "HOTHELP" #hothelpvar)
  3167.             (settooltype "GOLDED" #goldedvar)
  3168.             (settooltype "SAVEMEM" #savememvar)
  3169.             (settooltype "DICTIONARIES" "0")
  3170.             (settooltype "SYNTAXCOLORING" "0")
  3171.             (dest "Envarc:StormCPP/def_project")
  3172.         )
  3173.         (tooltype
  3174.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3175.             (setstack 15000)
  3176.             (settooltype "PUBSCREEN" #pubscvar)
  3177.             (settooltype "QUIET" #quietvar)
  3178.             (settooltype "HOTHELP" #hothelpvar)
  3179.             (settooltype "GOLDED" #goldedvar)
  3180.             (settooltype "SAVEMEM" #savememvar)
  3181.             (settooltype "DICTIONARIES" "0")
  3182.             (settooltype "SYNTAXCOLORING" "0")
  3183.             (dest "Envarc:StormCPP/def_text")
  3184.         )
  3185.         (tooltype
  3186.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3187.             (setstack 15000)
  3188.             (settooltype "PUBSCREEN" #pubscvar)
  3189.             (settooltype "QUIET" #quietvar)
  3190.             (settooltype "HOTHELP" #hothelpvar)
  3191.             (settooltype "GOLDED" #goldedvar)
  3192.             (settooltype "SAVEMEM" #savememvar)
  3193.             (settooltype "DICTIONARIES" "0")
  3194.             (settooltype "SYNTAXCOLORING" "0")
  3195.             (dest "Envarc:StormCPP/def_text.c")
  3196.         )
  3197.         (tooltype
  3198.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3199.             (setstack 15000)
  3200.             (settooltype "PUBSCREEN" #pubscvar)
  3201.             (settooltype "QUIET" #quietvar)
  3202.             (settooltype "HOTHELP" #hothelpvar)
  3203.             (settooltype "GOLDED" #goldedvar)
  3204.             (settooltype "SAVEMEM" #savememvar)
  3205.             (settooltype "DICTIONARIES" "0")
  3206.             (settooltype "SYNTAXCOLORING" "0")
  3207.             (dest "Envarc:StormCPP/def_text.cc")
  3208.         )
  3209.         (tooltype
  3210.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3211.             (setstack 15000)
  3212.             (settooltype "PUBSCREEN" #pubscvar)
  3213.             (settooltype "QUIET" #quietvar)
  3214.             (settooltype "HOTHELP" #hothelpvar)
  3215.             (settooltype "GOLDED" #goldedvar)
  3216.             (settooltype "SAVEMEM" #savememvar)
  3217.             (settooltype "DICTIONARIES" "0")
  3218.             (settooltype "SYNTAXCOLORING" "0")
  3219.             (dest "Envarc:StormCPP/def_text.cpp")
  3220.         )
  3221.         (tooltype
  3222.             (setdefaulttool "StormC:StormSYS/StormCPP")
  3223.             (setstack 15000)
  3224.             (settooltype "PUBSCREEN" #pubscvar)
  3225.             (settooltype "QUIET" #quietvar)
  3226.             (settooltype "HOTHELP" #hothelpvar)
  3227.             (settooltype "GOLDED" #goldedvar)
  3228.             (settooltype "SAVEMEM" #savememvar)
  3229.             (settooltype "DICTIONARIES" "0")
  3230.             (settooltype "SYNTAXCOLORING" "0")
  3231.             (dest "Envarc:StormCPP/def_text.h")
  3232.         )
  3233.     (message #nosyntaxcolouring_hint) ; // Keine farbliche Syntaxunterscheidung
  3234.     )
  3235.  
  3236. )
  3237.  
  3238. (tooltype ; // DEF-LIBRARIAN Piktogramm!
  3239.     (setdefaulttool "StormC:StormSYS/StormCPP")
  3240.     (setstack 15000)
  3241.     (settooltype "PUBSCREEN" #pubscvar)
  3242.     (dest "Envarc:StormCPP/def_librarian")
  3243. )
  3244.  
  3245.  
  3246. (if (= 1 (bitand install_tooltypes 1)) ; // Pubscreen anlegen
  3247.     (
  3248.     (message #pubscreenuse_hint)
  3249.     ))
  3250.  
  3251. (if (= 8 (bitand install_tooltypes 8)) ; // Golded benutzen
  3252.     (
  3253.     (message #goldeduse_hint)
  3254.     ))
  3255.  
  3256. (complete 101)
  3257. (message #endnow) ; // Letzte Meldung
  3258.